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A L'AFFICHE 


Le renouveau du Basic 
B Logo et le mode 
d'apprentissage 
BLes casse-tête 
informatiques du mois 

Des ficelles pour vos 
programmes 


GROS PLAN SUR 
TROIS LOGICIELS 
# 


A L'ESSAI 


Deux Basic dans le sac 
& Canon X:07 
Epson PX-8 


M 2712-9-20 F 


Belgique : 154FB - Canada : 2.95$C - Suisse : 6FS 


1 COUVERTURE 
L'illustration de notre 
couverture est signée 
Dominique Le Nouäille. 


1 4 À VOS CLAVIERS 
1 ] LA GAZETTE 


DE LIST 


24 LA PETITE 


HISTOIRE DES LANGAGES 
Promis à une belle carrière 
juridique, Bill Gates aimait 
trop les maths. Après avoir 
conçu, avec son ami Paul 
Allen, un Basic pour l'Altair, il 
crée la société Traf-0-Data 
qui devait devenir Microsoft. 


2 / LES EMPRUNTS 


SE PRÊTENT BIEN AUX 
CALCULS 

Avant de s'engager, parfois 
pour plusieurs années, à 
rembourser un prêt, on a tout 
intérêt à rechercher la 
meilleure solution. Quelques 
minutes suffisent avec un 
ordinateur (ici un Spectrum). 


a 
LIST + PAGE 4 


2 9 TRACÉ DE 


COURBES SUR APPLE II 
Pour un plus grand confort 
d'utilisation, PÉEK et POKE 
viennent à la rescousse et 
automodifient le programme. 


3 2 LOGO : LE MODE 


D'APPRENTISSAGE 
Comment obtenir que les 
instructions d'une procédure 
soient exécutées au fur et à 
mesure qu'on les tape. 


4 À, 
3 EF LE BASIC 


DU PX:8 

Le dernier portatif d'Epson 
est muni d’une cartouche de 
mémoire morte contenant un 
Basic Microsoft adapté et 
enrichi. 


3 / QUAND ON 


CHERCHE SES MOTS 
Passons en revue quelques- 
uns des algorithmes de 
recherche d'une chaîne dans 
un texte. 


40 . QUELS CURIEUX 


CARACTÈRES 
Redéfinir « à la main » les 


caractères de l'Amstrad n'est 


pas une sinécure, Un 


| programme se chargera très 


bien de cette corvée. 


v SRRIRIRURES HRRVESESERE 


; Um, 


Men L HHHBMIE 


43 LES 10 TESTS 


DE LIST 

Les microprocesseurs 32 et 
16 bits ont sur les 8 bits 
l'avantage théorique de la 
rapidité. Cet avantage se 
retrouve-t-il quand la 
machine fonctionne en 


L] 1 UN ÉDITEUR 


Basic ? IDÉAL 
Pour les corriger avec un 
maximum de facilité, confiez 
vos programmes Basic à 
POUR LES votre traitement de texte | 
CACHOTTIERS (exemples donnés sur Dai, | 
L'apparition de l'informatique| TRS-80 modèles III et IV, | 
a bouleversé une discipline | APPle Il et Il). | 


très ancienne : la 

cryptographie. On peut | 
assurer le secret des | 
communications tout en 
réduisant de 40 % le nombre | 
d'octets des textes à 
transmettre. | 


4 7] LES COUPS D'ŒIL DE LIST 


46 ASS-DESAS FOUR X-97 

Fonctionnant sur la version 16 Ko, un assembleur- 
désassembleur qui s'adresse plutôt aux personnes déjà 
familiarisées avec le langage-machine. 


48 BASIC ÉTENDU POUR SFECTRUM 

Quinze instructions supplémentaires (else, trace, print using, 
traitement des erreurs...) qui viennent très judicieusement 
remédier aux lacunes d'un Basic. 


49 XPER POUR £,64 

Disponible également pour Apple II et IBM-PC, XPer est un 
logiciel de gestion de bases de connaissance qui met en 
œuvre certains mécanismes des systèmes-experts. 
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p] / ORGANISATION 


DES DISQUETTES DU C.64 
Une bibliothèque d'utilitaires 
pour disquettes serait 
incomplète sans un éditeur 
de blocs. C'est un outil que 
l'on doit manier avec 
précaution, mais il est 
tellement utile. 


60 POUR UN BASIC 


| STRUCTURE 
Après avoir rencontré les 
procédures (LIST 8), on va 
voir ce mois-ci, les structures 
répétitives et les tests. 


64 MISEZ P'TIT, 


OPTIMISEZ 

Grignotons les octets et les 
fractions de seconde 
(HP-41C). La solution du 
problème posé dans LIST 7 
et un nouveau défi lancé aux 
lecteurs. 


L] 3 SUR DES 


ROULETTES 

Quand un objet roule, ses 
points décrivent dans 
l'espace des trajectoires dont 
certaines sont remarquables. 
Demandons au PC-1500 et à 
son imprimante de nous en 
faire découvrir quelques-unes. 


pe] pe] PASCAL, SUIVEZ 
LA PROCÉDURE 

D'accord, pas d'accord ? 
Souvent un programme vous 
demande d'indiquer ou de 
confirmer un choix. Autant 
programmer une bonne fois 
pour toutes, la procédure qui 
se chargera d'afficher la 
question et de contrôler la 
réponse. 
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/ 1 LA BOÎTE 


A MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? Rien. 
Dans ce numéro, des ficelles 
pour Sinclair QL, Amstrad, 
Epson PX-8, PC-1211, Apple 
Il, TO 7 et 7/70, MO 5, C.64, 
PC-1500, ZX81, PB-700, HP-41. 


8 4 LA RÉCRÉ 


DE LIST 

Exercez votre logique et votre 
ingéniosité pour résoudre 
quelques petits problèmes 
simples en apparence. 


66 AUTOUR D'UN 


TAPIS VERT 

Asseyez-vous à la table de la 
roulette et testez sur une 
longue série la martingale de 
votre choix. Cette fois, ce 
sera gratuit, mais qu'on ne 


68 LE BASIC 


DU X-07 

Après plus d'un an 
d'existence, le Basic résident 
du X-07 n'a pas pris une ride. 
Il reste pratiquement sans 
rival dans sa catégorie, à mi- 
chemin entre les machines de 
poche et les ordinateurs 
d'attaché-case. 


Ce numéro contient en encart 
des bulletins d'abonnement 
paginés 11, 12, 77 et 78. 


Index des annonceurs p. 13 


groupe 
LIST est une publication du == 
ESS 


5 place du Colonel Fabien - 75491 Paris Cédex 10 
Téléphone : (1) 240 22 01 - Télex : LORDI 215 105 F 


La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de 
l'Art. 41, d'une part que «les copies au reproductions strictement réser- 
vées à l'usage privé du copiste et non destinées à une utilisation collec: 
tive », et, d'autre part, que les analyses et les courtes citations dans un but 
d'exemples et d'illustrations, « toute représentation ou reproduction inté- 
grale, ou partielle, faite sans le consentement de l’auteur ou de ses ayants- 
droit ou ayant-cause est illicite » (alinéa 1° de l'Art. 40). Cette représenta- 
tion ou reproduction, par quelque procédé que ce soit, constituerait donc 
une contre-façon sanctionnée par les Art. 425 et suivants du Code Pénal. 


Notre publication contrôle les publicités commer 
ciales avant insertion pour qu'elles soient parfai 

\ s tement loyales. Elle suit les recommandations du 
‘ À Bureau de Vérification de la Publicité. Si, malgré 


non) CES Précautions, VOUS aviez une remarque à faire, 
promener. — vous nous rendriez service en écrivant au BVP, 
BP 4508, 75362 PARIS CEDEX 08. 
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Limité par Basic ? 
impatient, lorsqu'un compila- 
teur classique prend 5 mn pour 
compiler 100 lignes ? 


TURBO Pascal a été conçu 
pour vous. 


TURBO PASCAL 
EST UN SYSTÈME COMPLET 


1! comprend un éditeur et un 
un compilateur dans le même 
programme. 

(28 K CPM. 36 K 

sous MS DOS). 


Vous passez de l'un à 
à l'autre par une touche : plus 
besoin de jongler avec disquettes 
ou fichiers. 


LA COMPILATION SE FAIT 
EN MÉMOIRE 


Un compilateur classique utilise des 
fichiers intermédiaires sur disque; 
jusqu'à 90 % du temps peut être con- 
sacré aux opérations de lecture/ 
écriture Sur disque. 

Avec TURBO Pascal, la compilation se 
fait en mémoire en une seule passe : le 
temps de compilation est réduit au 
strict minimum. 

Par exemple, Microcalc, programme 
de démonstration de 1.200 lignes 
fourniavec TURBO Pascalest compilé 
en 30 secondes (à 4 Mhz), 

Si une erreur survient lors de la compi- 
lation, l'emplacement de l'erreur est 
retrouvé dans le code source et le 
mode éditeur activé : corriger un point- 
virgule oublié ne prend que quelques 
secondes. 


L'ÉDITEUR INTÉGRÉ 
EST CONFIGURABLE. 


Vous pouvez redéfinir toutes les com- 
mandes. ll lit les programmes écrits 
avec d'autres traitements de texte. 


DE NOMBREUSES EXTENSIONS 


vous permettent d'utiliser à fond votre 

ordinateur. 

+ appels aux fonctions du DOS 

. opérations sur la mémoire, 
les ports d'entrée/sortie 

« fonctions AND 
OR, XOR, sur 
les entiers 


type String avec fonctions de traite- 
ment de chaînes 

- procédures de gestion de l'écran 

. 8 fichiers prédéfinis 

« modules de recouvrement 
(overlays)permettant d'écrire de très 
grands programmes 

. fichiers à accès aléatoire avec 
“seek” 

. constantes structurées permettant 

d'initialiser rapidement ensembles 

et tableaux 

identificateurs de 127 caractères 

programmes chaïnés avec partage 

des données 

variables absoiues placées à 1 

adresse précise en mémoire. 


REVUES... 
“Des performances à faire pâlir" 
«LIST», Nov. 1984 
“TURBO Pascal offre tout ce qu'un uti- 
lisateur de Pascal peut attendre en 
dépassant même largement ses espé- 
FARGEST «ORDI», Nov. 1984 
“The best cost less” 

«Creative Computing », juillet 1984 
“TURBO Pascal appears to violate the 
laws of thermodynamics". 

« SOFTALK », Mars 1984 

“This dynamic new language compiler 

is a “VolksPascal", with most of Pas- 

cal plus a few extras. It introduces a 

new programming environment and 
runs like magic”. 

« PC MAGAZINE », Nov. 1984 


TURBO 87 permet 
d'utiliser le coprocesseur 
8087 sur les machines 16 bits. 


Remboursement possible par retour 
de la disquette non ouverte sous 
15 jours. 


ENVOYEZ-MOI DE SUITE : 


© TURBO PASCAL 

625 F + 116,25 F TVA 
Q TURBO 87 

1.150 F + 213,90 F TVA 
O JE PRÉFÈRE LE MANUEL ANGLAIS 
D ORDINATEUR : 
DISQUES 0 31/2" 514 D8" 
SYSTÈME D'EXPLOITATION : 


O MS-DOS CO CMP-80 
a PC-DOS CPM 86 
RÊGLEMENT : 


Q CHÈQUE JOINT 

O CONTRE-REMBT. (+ 50 F) 

+ Remboursement garanti si renvoi de la 
pochette non ouverte sous 15 jours. 

+ Remplissez soigneusement le bon de 
commande. 


NOM 
ADRESSE ___ 


TEL 
PNBTORE : 


A VOS CLAVIERS 


avouée est à demi pardonnée. 


DANS LE COUP ? 


NFIN LIST découvre l’exis- 

tence de Basic structurés 

sur les micros pour amateurs ! 

J'en arrivais à me demander si 

cette sympathique revue était 

bien, comme on dit, « dans le 
coup » ! 

La lecture d’un certain article 
du numéro 4 (page 56), dont le 
sommaire disait : « Récursivité, 
le Basic y vient... » (et mieux, 
sur du matériel français), 
m'avait en particulier laissé 
perplexe. 

C’est donc avec grand plaisir 
que je viens de lire l’exposé de 
Bernard Kokanosky que je féli- 
cite pour sa clarté. 

Puis-je me permettre de dire 
la satisfaction de l’amateur que 
je suis, rebuté par Pascal, à 
Pusage d’un Basic réellement 
structuré ? 

Après avoir débuté en 1978 
avec un PET, et continué avec 
plusieurs autres matériels j’ai 
depuis près d’un an un Electron. 

Ce n’est certes pas la machine 
sans défauts, son principal étant 
d’être très mal commercialisée, 
mais ceci est une autre histoire. 

Son Basic est celui du BBC, 
dernière version, et je peux vous 
assurer — maintenant je le pos- 
sède bien — qu’il est vraiment 
de qualité, et très rapide. 

L’Electron est par ailleurs une 
machine faite pour l’amateur de 
programmation pure ; la liste 
des possibilités offertes est 
considérable. A titre d'exemple, 
connaissez-vous beaucoup de 
micros de la même classe qui 
réservent une zone de la page 
zéro à l'utilisateur ? 

Et des variables entières qui le 
sont réellement et non reconver- 
ties en réelles ? Quand en plus 
elles sont sur 32 bits, et pour une 
part résidentes, alors là... 

C'est pourquoi d’ailleurs les 
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ET UNE RUSTINE POUR 
L'AMSTRAD-GRAPHE, UNE ! 


NE erreur s’est glissée dans le programme pour Amstrad 
(Picologo) que nous avons publié dans LIST 8, page 67. 
Rien de très grave, mais essayez de nouveau le programme en 
modifiant la ligne 500 qui doit être : 
500 FOR I=NC+1 TO 99 : C$(I)=‘‘"”’: NEXT I 


C’est mieux ainsi, non ? Avec toutes nos excuses. Bogue 


tests de vitesse que vous publiez 
m’agacent un peu — pardon —, 
mais ils ne tiennent pas compte 
des particularités propres à cha- 
que machine. Ainsi, j'écris le test 
n°1: 

10 FOR I %=1 TO 10000 

20 NEXT I % 

Résultat : 3,3 s ! Au lieu de 9 
avec un indice réel. 

M'étant défoulé, j'arrête là, 
en vous disant, maintenant que 
vous êtes sur la bonne voie, con- 
tinuez.. si vous ne craignez de 
faire trop de peine à certains. 

Salutions cordiales d’un vieux 
et fidèle lecteur. 


Jean RENAUD 
78 Marly le Roi 


Le Basic de l’Electron est 

en effet le même que celui 
de son frère le BBC, deux ordi- 
nateurs conçus par le construc- 
teur britannique Acorn. Dans le 
numéro 3 (page 30) de LIST, 
nous avons d’ailleurs testé le 
Basic du BBC qui nous a paru 
« étonnant : à la fois riche et 
T. apide ». 

Les dix tests de LIST ont pour 
but de « situer » la vitesse d’un 
ordinateur par rapport à celle 
des autres. Il ne s’agit pas ici de 
comparer les apports spécifiques 
de chaque machine, de chaque 
Basic. Nous avons choisi de 
sérier les questions, pour éviter 
la confusion. 

Nous avons commencé par les 
tests de vitesse, les caractéristi- 
ques du Basic viendront bientôt. 
Encore un peu de patience, 
merci. 

Quant au Basic structuré de 
Bernard Kokanosky, vous le 
retrouverez dans ce numéro, à la 
page 60 (1). 


(1) Bernard Kokanosky est l’auteur 
d’un Basic structuré pour Sharp MZ 
700, que l’on peut se procurer au 
Club des Sharpentiers, 151-153 ave- 
nue Jean Jaurès, 93307 Aubervilliers 
Cedex. 


POUR ÊTRE 
AUTEUR DE LIST 


ERMETTEZ-moi de vous 
féliciter pour votre maga- 
zine que je trouve si intéressant. 
Je souhaiterais vous poser une 
petite question : achetez-vous les 
programmes d’amateurs, qui ne 
sont pas recopiés et qui sont tout 
à fait personnels ? Et si oui, 
comment est-il possible d’écrire 
Particle ? 
Merci d’avance pour votre 
réponse. 


Frédéric HARLE 
62 Lapuenoy 


E tiens à vous remercier, par 
la présente, de l’intérêt que 
vous avez porté à mon article 
« Top secret » pour PB-700 et 
que vous avez fait paraître dans 
LIST 6, page 75. Je dois avouer 
que j'étais extrêmement content 
de voir mon article porté par un 
journal aussi remarquable que le 
vôtre. 

Aussi, imaginez ma joie lors- 
que, aujourd’hui, je reçois en 
plus un chèque... Autant vous 
dire que je ne m’y attendais pas. 

Longue vie à LIST ! 


Pierrick GRESLIN 
95 Argenteuil 


ANS le but de pouvoir 
répondre aux adhérents 
d’un club dont je m'occupe, je 
souhaiterais avoir les précisions 
suivantes : 
< sur quels critères se fait la 
publication d’astuces dans la 
Boîte à malices ? 
.< donne-t-elle 
rémunération ? 


lieu à une 


< quelle est la différence entre les 
programmes publiés dans la 
Boîte à malices et les autres ? 
(Certains trucs de la Boîte à 
malices sont supérieurs aux pro- 
grammes hors boîte). 

eest-il possible à « Monsieur 
tout-le-monde » d’écrire un vrai 
article ? En d’autres termes, 
faut-il des « références » parti- 
culières pour être publié dans 
LIST (si l’article en vaut la 
peine, bien sûr). 


Bruno de LA BOISSERIE 
27 Le Vaudreuil 


Bien sûr, « Monsieur tout- 

le-monde » (« Madame 
tout-le-monde », aussi), ama- 
teur ou professionnel, sans réfé- 
rence aucune (et même s’il en 
a !), jeune ou moins jeune, peut 
nous proposer programmes, 
astuces, ou toute autre idée qui 
touche à la programmation. 

Nous étudions tout ce qui 
nous est envoyé. Si nous jugeons 
le sujet intéressant, nous en envi- 
sageons la publication. Si le texte 
de l’article mérite une remise en 
forme, nous le « révisons ». 

Ce qui est spécifique à une 
machine et ce qui est court, 
entrera dans la Boîte à malices. 
Ce qui est complet et général 
fera le plus souvent l’objet d’un 
article. 

Il faut tout de même rappeler 
que nous « croulons » sous les 
biorythmes, les pendus ou les 
Master Mind. Non, ils ne nous 
intéressent pas. Par contre, toute 
idée originale de programme ou 
d’aide à la programmation, 
toute astuce inédite spécifique 
ou non à un matériel, est suscep- 
tible de nous intéresser. 

Enfin, bien entendu, tout 
article publié est rétribué. S’il ne 
s’agit pas d’un pont d’or, c’est 
tout de même loin d’être 
symbolique. 


INDEX DES ANNONCEURS 


Cassettes le Témoignage 
Festival du Logiciel 
Fraciel 


Librairie Informatique d’Aujourd’hui 


L'Ordinateur Individuel 


& 


2 
9 
8 
7 
: 9 
.6 
. 8 
«9 
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A VOS CLAVIERS 


DE MEILLEURES SOLUTIONS POUR LE JEU 17 


ÉDUIRE au minimum le temps d’initiation d’une matrice car- 

rée, c’était le but du jeu 17 (LIST 6, page 80). Il a suscité 

beaucoup de courrier et l’étude des différents programmes pro- 

posés montre qu’il était encore possible de réduire — et même con- 

sidérablement — le temps d’exécution de notre solution (LIST 7, 

page 82). 

Une matrice unité est un tableau carré à deux dimensions com- 

posé de un dans la diagonale principale et de zéros ailleurs : 


10... OÛ 
O1... 00 
00 ... 10 
00 ... 01 


Un tel tableau peut être initialisé par le programme 1, où MAX 
mémorise la dimension de la matrice, c’est-à-dire le nombre de 
ses lignes ou de ses colonnes. Ici, pour les estimations de temps 
d’exécution, nous prendrons MAX égal à 100. 

Programme 1 : 

10 for L = 1 to MAX 

20 for C = 1 to MAX 

30 if L = Cthen A (L, C)=1 else A(L, C)=0 
40 next C 

50 next L 

Le temps d’exécution de ce programme est fonction des temps 
élémentaires de chaque instruction. Ceux-ci étaient donnés dans 
l’énoncé : 

e 850 microsecondes par itération d’une boucle for...next ; 

e 1130 microsecondes pour l’instruction d’affectation d’une valeur 
à un élément du tableau (comme A (L,C) = 0 ou A(L,C)= 1) ; 
e 310 microsecondes pour le test d’égalité. 

Ainsi, avec l’algorithme élémentaire du programme 1, on obtient 
un temps de 27,985 secondes. Cet algorithme peut être modifié 
et donner le programme 2, programme proposé comme solution 
du jeu (LIST 7). 

Programme 2 : 

10 for L=1 to MAX 
20 for C=1 to MAX 
30 A(L,C) =0 


40 next C 
s0 AtL,L)= | 
60 next L 


Le programme 2 s’exécute en 19,998 secondes, ce qui représente 
déjà un résultat appréciable. A ce niveau, notre programme est 
assez simple, puisqu'il n’utilise que deux types d’instructions : la 
boucle et l’affectation. Pour réduire encore son temps de calcul, 
il est possible de s’attacher à la boucle la plus consommatrice de 
temps, c’est-à-dire celle qui est la plus interne. Nous pouvons donc 
initialiser deux éléments en même temps. Le programme 3, sug- 
géré par Philippe Matet (Liancourt) et Jean-Jacques Poujade 
(Paris), le fait. 

Programme 3 : 

10 for L=1 to MAX 

20 for C=1 to MAX step 2 
30 A(L,C)=0 

40 A(L,C+1)=0 


50 next C 

60 A(L,MAX)=0 
70 A(L,L)=1 

80 next L 


Le temps d’exécution d’un tel programme s'établit à 15,748 
secondes avec nos données. Mais nous pouvons remarquer que, 
bien que cet algorithme soit plus rapide que les précédents, il effec- 
tue des affectations en double. Par exemple, lorsque L est égal 
à C, il réalise trois affectations à A(L,L) : deux à zéro, et une à 
un. Il est possible d’éliminer ces cas en modifiant les bornes des 
boucles. Nous obtenons donc le programme 4, dû à Eric Levenez 
(Mantes la Jolie). 


LIST - PAGE 14 


Programme 4 : 
10 A(MAX, MAX)=I1 
20 for L=1 to MAX-1I 
30 for C=L+1 to MAX 
40 A(L,C)=0 
50 A(C,L)=0 


60 next C 
70 A(L,L)=1 
80 next L 


Ainsi, par élimination des affectations inutiles, le temps est 
encore réduit. Il est maintenant égal à un peu moins de 15,592 
secondes. 

Toutefois, nous pouvons encore tirer parti de la remarque de 
symétrie qui nous a permis d’obtenir cet algorithme. En effet, nous 
n’avons considéré que la symétrie par rapport à la diagonale prin- 
cipale. Il est possible d'envisager des symétries supplémentaires. 
En considérant par exemple les symétries par rapport aux deux 
diagonales de la matrice, nous obtenons un nouveau programme, 
envoyé par Philippe Bérenger (Wizernes). 


Programmes 5 : 
10 for L=1 to int((MAX -— 1 — (int{(MAX/2)=MAX/2))/2) 
20 for C=L+1 to int((MAX + 

(int(MAX/2) < > MAX/2))/2) 

30 A(L,C)=0 
31 A(L,MAX-C+1)=0 
32 A(C,MAX-L+1)=0 
33 A(MAX-C+1,MAX-L+1)=0 
34 A(MAX-L+1,MAX-C+1)=0 
35 A(MAX-L+1,C)=0 
36 A(MAX-C+1,L)=0 
37 A(C,L)=0 
40 next C 
50 next L 
60 for L=1 to MAX 
70 A(L,MAX-L+1)=0 
71  A(L,L)=1 
80 next L 

Si nous ne comptons pas les opérations nécessaires au calcul des 
indices du tableau, il apparaît que cet algorithme est encore plus 
rapide que le précédent. En effet, il s'exécute en 12,468 secondes. 


Bien entendu, il est possible de concevoir des algorithmes plus 
rapides. Mais dans ce cas, la taille occupée par le programme d’ini- 
tialisation devient importante. Par exemple, en dépliant complè- 
tement les boucles, jusqu’à les faire disparaître comme le propose 
encore Eric Levenez : 

1 A(,1)=1 

2 A(2,1)=0 

3 AG,1)=0 
9999 A(99,100) = 0 
10000 A(100,100)=1 

Nous avons bien entendu gagné un temps appréciable, puisque 
ce programme s’exécute en 11,3 secondes. Mais avouons qu'il est 
assez long à écrire ! | 

Peut-on faire plus rapide encore ? Certainement, en tirant parti 
des facilités du langage de programmation utilisé. Ainsi, en Basic, 
Pierre Barnouin (Cabris) propose la séquence d’instructions 
suivante : 

10 erase A 

20 for L=1 to MAX 
30 A(L,L)=1 

40 next L 

Comme ERASE s'exécute très rapidement, un tel programme 
ne mettra guère plus de 0,198 seconde à initialiser la matrice unité. 
L’instruction est peut-être spécifique, mais le résultat atteint est 
tellement bon. 
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Du nouveau 
pour le Dragon 32 


E Dragon 64 avec lecteur 

de disquette est doté d’un 

système d’exploitation OS9 qui 

permet l’accès à divers outils 

logiciels : traitement de texte, 
Pascal, langage C, etc. 

Une transformation interne et 
une disquette OS9 rendent ce 
système d’exploitation disponi- 
ble sur Dragon 32 avec lecteur de 
disquette. Goal Computer com- 
mercialise tout ce qui est néces- 
saire pour cette modification au 
prix de 1 150 FF. 

Goal Computer 

15 rue de Saint Quentin 
75010 Paris 

Tél. 200 57 71 


TROIS CASSETTES 


Trois utilitaires pour Oric-1 
et Atmos 

Kit écran 

Data save (Oric-1 seulement) 
Supercopy écran 

Édités par ARG 
Informatique 

Prix de chaque cassette : 
120 FF 


ROIS programmes pour 

lOric, trois programmes 
du genre « boîte-à-outils ». 
Chacun d’entre eux peut être 
chargé à tout moment qu’il y ait 
ou non un programme Basic en 
mémoire. On dispose alors de 
fonctions supplémentaires. 


Ainsi, Kit écran permet d’ani- 
mer un titre ou la présentation 
d’un programme en faisant défi- 
ler dans les quatre directions un 
texte géant ou encadré. Il permet 
de plus d’afficher en perma- 
nence une horloge sur l’écran, 
mais il oblige à utiliser une série 
de POKESs. A titre d'exemple, 
un texte en mouvement demande 
cinq POKESs et un CALL, une 
page complète avec horloge 
trente POKESs et six CALLs... 

Data save apporte de précieu- 
ses fonctions de gestion des cas- 


Le départ 
d’un président 


E président et fondateur du 
Centre Mondial Informa- 

tique et Ressource Humaine, 
Jean-Jacques Servan-Schreiber, 
a confirmé officiellement, dans 
une lettre adressée au Président 
de la République, son intention 
de ne pas « conserver la respon- 
sabilité du Centre». Il ne 
demande donc pas le renouvel- 
lement de son mandat et doit 
être remplacé par Jean-Louis 
Funck-Brentano, haut conseiller 
à l’Agence de l’informatique et 
expert en informatique médi- 
cale. = 


Tout en Forth 


Sens, Corbou Informati- 
que, organisme de forma- 
tion, service et conseil s’est fait 
une spécialité dans la distribu- 
tion de produits Forth, essentiel- 
lement des systèmes à implanter 
sur C.64, Apple, QL (prochaine- 
ment Amstrad), ordinateurs 
sous CP/M ou MS-Dos, etc., 
mais aussi livres de tous niveaux. 
Les mordus de Forth pour- 
ront se procurer le catalogue en 
écrivant ou en téléphonant à : 
Corbou Informatique 
12 rue des Vieilles Étuves 
89100 Sens 
Tél. (86) 65 78 99 


IBM ne veut plus 
faire joujou 


BM a décidé d’arrêter la pro- 

duction du PC Junior, tout 
en continuant à fabriquer des 
cartouches de programmes et 
des pièces détachées. Le PC 
Junior aurait été vendu à 
270 000 exemplaires en 1984, 
selon Future Computing. La 
France n’y aura jamais goûté. 


Basic de l’'EXL 100 


settes qui manquent sur l’Oric-1. 
Il ajoute sept nouvelles com- 
mandes de sauvegarde, de lec- 
ture et de vérification d’un pro- 
gramme, d’un fichier ou d’un 
écran sur magnétophone. La 
syntaxe est simple : !C comme 
Catalog recherche le nom d’un 
programme enregistré ; !V 
“PROG” vérifie qu’une sauve- 
garde s’est effectuée correcte- 
ment ; !S‘‘PROG’’ ou !L 
“PROG” sauve ou lit un pro- 
gramme et l’ensemble de ses 
données. 


Le dernier utilitaire intéresse 
les possesseurs d’une impri- 
mante Seikosha GP100A (ou 
similaire). Supercopy écran 
reproduit un écran sur papier 
dans un temps honorable qui ne 
dépend que de l’imprimante. Il 
permet huit modes de copie : 
TEXT ou HIRES, normal ou 
inverse, simple ou double taille. 

Si Data save est destiné au seul 
Oric-1, les deux autres cassettes 
conviennent également à 
l’Atmos. 

MH 


| Machine à écrire ou terminal d’ordinateur : 
la Brother EP-44 


NE campagne de pub 

drôle, certes, mais un 

peu envahissante, a voulu faire 

du produit un événement. Rien 

de tel que de tester pour s’en 
faire une idée. 

La Brother EP-44 utilise le 
procédé d’impression thermique 
où par transfert thermique, 
c’est-à-dire que la matrice 
chauffe soit un papier spécial qui 
noircit à la chaleur (ne pas lais- 
ser tomber sa cigarette ni poser 
sa tasse de thé sur la réserve.….), 


A première notice du Basic 
de l’'EXL 100 a été corri- 

gée et complétée. Elle est 
envoyée gratuitement sur simple 
demande à : 
Exelvision 
Place Joseph Bermond 
06560 Valbonne 
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Sicob de printemps 


E Spécial Sicob, ou Sicob de printemps, se tient cette 
année au Palais du CNIT à La Défense (Paris), du 6 
. Test ouvert à tous les publics les 8 et 11 mai 
(prix d’entrée : 20 FF), et est spé ment tourné vers la micro- 
informatique, matériels comme logiciels. Les 6, 7, 9 et 10 mai 
sont les journées professionnelles (prix d'entrée : 60 FF). 


au 11 mai 19 


soit un ruban qui dépose l’encre 
sur un papier normal ou presque 
Gl ne doit présenter aucun 
relief). 

Sur un clavier AZERTY à 
touches non standard, mais pas 
désagréables, une profusion 
d'inscriptions faciles à distinguer 
grâce aux codes de couleur, et 
trois inverseurs : l’un pour l’in- 
terligne, un autre pour les divers 
modes d’impression (simulta- 
née/différée) ou de calcul, le 
troisième enfin, marqué NOR- 
MAL/TERMINAL. 

En mode normal, une 
machine à écrire étonnamment 
silencieuse, et des caractères 
matriciels étonnamment soignés. 
Il est vrai que la matrice est de 
24 X 18, ce qui est loin des nor- 
mes courantes sur les impriman- 
tes à aiguilles classiques. Un affi- 
cheur à cristaux liquides, chose 
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désormais courante sur les 
machines à écrire électroniques, 
permet de s'arrêter en cours de 
frappe et d’utiliser les fonctions 
de la calculatrice intégrée. Il est 
censé en outre offrir bien d’au- 
tres facilités, en particulier la 
frappe différée, après correc- 
tions éventuelles, dans les limi- 
tes du tampon (15 caractères), 
mais aussi la mise en mémoire de 
pages de texte (jusqu'à 3726 
caractères) où l’on pourra insé- 
rer où détruire des lignes. 

Les fonctions de centrage, de 
soulignement automatique, d’in- 
dice inférieur et supérieur, de 
justification à droite (pas à la 
fois à droite et à gauche) sont 
également présentes. L'ensemble 
est donc séduisant. De là à vou- 
loir en faire une machine à trai- 
tement de texte, avec les 15 
caractères de l’écran à cristaux 
liquides, il ne faut rien exagérer. 

En mode terminal, on a non 
seulement le terminal, mais aussi 


feuille, ce serait parfait. Heureu- 
sement, c’est prévu : un message 
PAPER EMPTY apparaît sur 
l’afficheur et la communication 
est suspendue, puis reprend sans 
caractères perdus. 

Enfin, le mode terminal per- 
met d’utiliser la Brother EP-44 
avec un ordinateur muni de l’in- 
terface RS-232C. L'un des deux 
manuels (en français) fournit les 
réglages pour un bon nombre 
d’ordinateurs courants, c’est un 
bon point. La possibilité de choi- 
sir le code de caractères sur 7 ou 
8 bits ne limite pas cette possi- 
bilité aux seuls ordinateurs qui 
respectent scrupuleusement le 
code ASCII, maïs un essai chez 
le vendeur éventuel s’impose 
avant de casser définitivement sa 
tirelire. Évidemment, il n’y a pas 
de possibilité graphique, ce qui 
est normal, mais on peut cepen- 
dant sortir des listes avec un pro- 
gramme de décodage des carac- 
tères spéciaux. 


Vous CROYEZ QUE 4 


POURRAIT MARCHER AVEC 


" | 
MA VIEILLE UNDERWoOp 1927: L'itPor TANT EST 


p'Y CROIRE ! 
iQ 


CA: 
ET 


le programme de communica- 
tion. Car c’est là une des pro- 
priétés les plus curieuses de la 
machine : vous pouvez la con- 
necter directement à un modem 
pour dialoguer sans ordinateur 
avec un serveur. Il suffit de choi- 
sir la vitesse de transmission, la 
longueur des mots (7 ou 8 bits), 
la parité, le retour chariot avec 
ou sans saut de ligne, le code de 
caractères (7 ou 8 bits), etc. 
Transpac n’est pas loin, les 
réseaux sont au bout de la ligne, 
et si l’on n’était pas obligé d’in- 
terrompre régulièrement la 
transmission pour changer de 
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L’impression thermique per- 
met donc d’obtenir une qualité 
d’écriture plus qu’acceptable 
avec une mise de fonds res- 
treinte : 2395 FF ttc. Restreinte 
quant au prix d’achat de la 
machine, car pour ce qui est des 
crédits de fonctionnement, 
sachant que cinq rubans sont 
vendus 130,60 FF et qu’un 
paquet de 100 feuilles de papier 
spécial coûte 59,50 FF, vous 
aurez à surveiller vos comptes de 
près. 


FJIBE 


UN LIVRE 


Du Logo pour Apple 
Nicole Bréaud-Pouliquen 
Éditions du PSI 

Lagny, 1984 

Broché, 118 pages 

Prix : 85 FF 


U Logo pour Apple est, 
comme son nom l’indi- 
que, un livre sur Logo spécialisé 
Apple. Il ne se perd pas dans des 
explications pédago-infor- 
matico... plus ou moins bien 
énoncées. Cette spécialisation 
entraîne des exemples concrets, 
directement exécutables sur la 
machine. J’aurais cependant 
quelques remarques à faire. 
L'auteur semble bien connaître 
Basic et LSE. Elle vise très haut 
dès le départ en supposant chez 
le lecteur une connaissance des 
processus informatiques. Prati- 
quer Logo n’est pas évident lors- 
que l’on aborde les listes et la 
récursion. 

Une remarque « maté- 
rielle » : les crochets [ ] n’exis- 
tent pas sur toutes les impriman- 
tes et c’est sans doute la raison 
pour laquelle ils n'apparaissent 
pas dans les listes de programme 
et sont systématiquement rem- 
placés par © pour le crochet 
ouvrant, et par $ pour le crochet 
fermant. Ceci est dit au début du 
livre (page 11) mais il ne faut pas 


a . . L’EXL s’entoure 


N clavier professionnel, 

un modem, un décodeur 
Antiope, un double lecteur de 
disquettes et beaucoup de 
mémoire vive, Exelvision ne 
viendra pas aux Sicob (Spécial 
Sicob et Sicob de septembre) les 
mains vides. La société a décidé 
en effet de « gonfler » l’'EXL 
100 en présentant de nouveaux 
périphériques. De quoi, précise 
Exelvision, offrir aux consom- 
mateurs un système modulable 
compris entre 3 000 et 10 000 F. 
Première innovation, de taille, 
une unité de mémoire de masse 
comprenant un double lecteur de 
microdisquettes, double face, 
double densité. Le système se 
présente sous la forme d’une 
unité de disquette de base 


l’oublier sous peine d’erreurs 
fréquentes. 

D'une manière générale, la 
présentation du livre est claire et 
le jeu de caractères utilisé permet 
de mettre en évidence les élé- 
ments importants. Des exercices 
retiennent l’attention. 

Les programmes publiés sont 
de véritables listes (clichées) ce 
qui évite les erreurs de frappe, 
surtout sur les espaces ou les 
caractères mal interprétés. En 
outre, ces programmes sont véri- 
tablement opérationnels et non 
approximatifs. 

Ce livre peut donc devenir le 
« livre de chevet » de ceux qui 
font du Logo sur Apple. On 
peut à tout moment y trouver 
des idées ou des exemples de 
programmes qui tournent. Pour 
être un guide vraiment pratique, 
il ne lui manque plus qu’à être 
accompagné d’une disquette des 
programmes proposés. Ce livre 
n’appartient-il pas en effet à la 
collection Guide Pratique ? Une 
suggestion à l’éditeur. 

RD 


de périphériques 


(3500 F) et d’une unité addition- 
nelle (environ 1500 F). L’origi- 
nalité de l’unité de base est 
qu’elle apporte 40 Ko de 
mémoire vive, un traitement de 
texte et un tableur intégrés, un 
connecteur pour cartouche de 
64 Ko de mémoire morte. Une 
fois formatée, chaque disquette 
a une capacité de 640 Ko (elle en 
a 1000 au départ). 

En supplément, Exelvision 
annonce des modules de 
mémoire, Exelmémoire, de 
16 Ko autonomes, alimentés par 
une pile au lithium, qui fonc- 
tionnent comme des disques vir- 
tuels. Ils coûteront 590 F 
chacun. 

Autre innovation, un clavier 
professionnel mécanique, plus 
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spacieux que son prédécesseur, 
également à infrarouge, il 
devrait s’avéret plus fiable. Pour 
convaincre les éventuels scepti- 
ques, Exelvision n’a d’ailleurs 
pas hésité à garantir une capa- 
cité de « 15 millions de manœu- 
vres ». Son prix : 295 F. 

Côté communication, Exelvi- 
sion propose un modem (en 
cours d’homologation) et un 
décodeur Antiope. Pourvu 
d’une fonction « numérotation 
automatique » et d’un détecteur 
de sonnerie, le modem devrait 
permettre en outre de transfor- 
mer l’EXL en véritable télex 
avec possibilité pour un corres- 
pondant de laisser un message 
sur l’appareil. Son prix, 1 090 F, 
comprend le modem muni d’une 
incrustation vidéo, d’une inter- 
face parallèle et d’une interface 
série. 

Le décodeur Antiope (dispo- 
nible fin septembre pour environ 
1 000 F) permettra quant à lui 
de visualiser des magazines 
radiodiffusés ainsi que les sous- 
titrages de films télévisés, à l’in- 
tention des mal-entendants. On 
pourra dès lors bénéficier de cer- 
tains bulletins d’information 
transmis par le réseau Antiope et 
utiliser l’incrustation d’images 
vidéo au sein d’un programme 
quelconque. Quant à savoir ce 
que diffuse Antiope ? Une 
bonne occasion de le découvrir. 

Enfin, pour finir avec pana- 
che, Exelvision a également pr&- 
senté deux versions de moni- 
teur : monochrome et couleur. 
L'ordinateur livré avec l’écran 
monochrome coûtera 3 290 F. 
Pour avoir l’écran couleur, il 
faudra ajouter environ 1 500 F. 

Une remarquable boîte à 
rythmes programmable, baptisée 


Exeldrums, a été développée en 
collaboration avec Hohner Elec- 
tronique (un gage de « savoir- 
faire ») et offre haute fidélité, 
enregistrement numérique, affi- 
chage, réglage du temps et seize 
rythmes préprogrammés. Dix- 
sept instruments de percussion 
différents sont à la disposition 
du mélomane. Le tout, bien 
entendu, peut être sauvegardé 
sur cassette ou disquette. Du 
rythme pour 1 100 F. 

Dès la fin septembre, il sera 
donc possible de disposer d’une 
configuration maximale du 
système. Pour l'instant, on peut 
la voir au Spécial Sicob (du 6 au 
11 mai 1985, au CNIT-La 
Défense). Ci] 


Kit de nettoyage pour 
disquettes et lecteurs 


N petit clic vaut mieux 
qu'un grand scratch. 

C’est à peu près l’argument de 
Compuclean qui propose un 
« kit de nettoyage » complet 
pour microdisquettes, 3,5 pou- 
ces et lecteurs correspondants. 
Un clic pour ouvrir le sachet 
de solvant, un coup de pouce 
pour dégager la glissière métal- 
lique de la disquette en question, 
ne pas oublier d’humidifier la 
surface nettoyante, glisser le tout 
dans le lecteur et le tour est joué. 
Au bout de 30 secondes, on 
obtient un nettoyage parfait 
(non abrasif). Une précision 
pour les clients pointilleux : le 
solvant est un habile dosage de 
fluocarbone et d’alcool isa- 
propylique ! CL] 


UN LIVRE 


Les astuces d’Alice 32 et 90 
Jean-François Gallet 

et Alain Pierrot 

Edité par Matra et Hachette 
Paris, 1985 
Broché, 182 pages 
Prix : 98 FF 


ES auteurs des Astuces 
d’Alice 32 et 90, Jean- 
François Gallet et Alain Pierrot, 
étaient particulièrement bien 
placés pour écrire cet ouvrage, 
puisqu'ils ont fait partie de 
l’équipe qui a mis au point 
l’éditeur-assembleur d’Alice, 
chez Matra. 

Et, de fait, le livre est remar- 
quable. Contrairement à ce qui 
se produit trop souvent dans les 
livres traitant d’Assembleur, les 
auteurs ne se contentent pas de 
passer en revue la liste des ins- 
tructions du microprocesseur 
6803 (ils renvoient pour cela à 
une documentation fournie en 
annexe), mais proposent des 
outils, largement expliqués et 
commentés, qui permettront de 
réaliser des programmes d’un 
bon niveau. 

A la fin du volume, on trouve 
un moniteur, qui facilitera la 
mise au point des programmes 
en Assembleur. Pour travailler 
plus efficacement, il sera préfé- 
rable de le frapper dès le début 
(même si le lecteur débutant ne 
le comprend pas encore). 

Tout est ici examiné en détail : 
réaffectation des touches, ges- 
tion du clavier, sortie écran ou 


imprimante, et des utilitaires 
(Renum, Merge, horloge temps 
réel, liaison Alice-imprimante, 
liaison Alice-Alice) viennent 
compléter le Basic d’origine, 
somme toute un peu décevant. 
Le processeur de visualisation 
(EF 9345) se voit consacré une 
étude assez poussée et certaines 
possibilités mal ou non gérées 
par le Basic sont passées en 
revue : jeu complet de caractè- 
res, Caractères agrandis, cou- 
leurs, etc. 

Dans les dernières pages, sont 
fournis les schémas complets des 
entrées-sorties série et cassette, 
les adresses mémoire utiles, ainsi 
qu’un programme qui permettra 
(si l’on retourne le câble Péritel) 
l'affichage de lignes avec incrus- 
tation. 

Voici donc un ouvrage intéres- 
sant qui sera particulièrement 
utile aux possesseurs d’Alice (32 
et 90). Il est dommage qu’il ait 
fallu attendre si longtemps pour 
que les possibilités de cet ordi- 
nateur (l’incrustation, entre 
autres), soient révélées. 

JD Æ 
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L’Apple Ile 
et le temps qui passe 


EULS, dans le passé, les 
systèmes d’exploitation 
des ordinateurs autres que les 
micros, IBM, PDP-11, VAX, 
etc. gardaient trace dans leurs 
« directory » des dates et heures 
de création et de mise à jour des 
fichiers qui leur étaient confiés. 
Depuis quelque temps déjà les 
micros, et notamment les IBM- 
PC et Apple, ont aussi, grâce à 
l’adjonction de cartes horloge 
spécifiques, cette possibilité. 

Proclock, de Practical Peri- 
pherals (distribué par Alpha 
Systèmes), est la dernière--née de 
ces cartes horloge pour l’Apple 
Ile. Elle permet de garder trace 
des dates de création/mise à jour 
des fichiers sous ProDOS, le 
nouveau système d’exploitation 
des Apple II, mais aussi sous 
DOS 3.3 (Proclock propose un 
très joli « patch ») et sous 
CP/M. 

ProDOS, outre sa rapidité 
accrue (8 Ko transmis par 
seconde) et la possibilité qu’il 
offre de gérer des volumes 
importants comme des disques 
durs (type Profile), tient compte 
de la date et de l’heure. Il recon- 
naît la présence d’une carte hor- 
loge et lit les informations que 
lui délivre celle-ci. De plus, les 
derniers logiciels d’Apple 
comme AppleWorks ou Pro- 
DOS Assembler Tools récupè- 
rent les informations fournies 
par cette carte horloge et permet- 
tent des listages très documentés 
gardant trace des dates de créa- 
tion ou/et de mise à jour. 

Outre un manuel très bien fait 
(mais en anglais !), Proclock est 
accompagnée d’une disquette 
double face. Une des faces con- 
tient de nombreux programmes 
en Applesoft, en langage- 
machine et en Basic Microsoft 
sous CP/M (les programmes se 
présentant alors sous forme de 
fichiers « textes » au format 
DOS 3.3 qu'il sera nécessaire de 
« passer » au système CP/M en 
utilisant pour cela l’utilitaire 
« APDOS »). La deuxième face 
contient des programmes Pascal 
qui permettront aux amateurs de 
ce langage d’utiliser Proclock au 
mieux de ses possibilités. 

Côté Applesoft, les program- 
mes offerts sont très variés et 
comprennent des simulations 
(une horloge en graphisme haute 
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résolution), des exemples de lec- 
ture de temps en différents for- 
mats, de décomptage de temps, 
permettant ainsi la réalisation de 
jeux de rôle ou d’arcade en 
temps réel. Enfin un programme 
gérant les interruptions (avec un 
bel exemple : l’affichage de la 
date et de l’heure, secondes com- 
prises, sur la première ligne de 
l’écran pendant qu’un autre pro- 
gramme se déroule). 

Proclock offre également une 
version modifiée du DOS 3.3 
permettant de garder trace de la 
dernière sauvegarde d’un fichier. 
Les fichiers (ou programmes) 
peuvent être néanmoins utilisés 
avec un DOS normal. 

Concernant CP/M, deux pro- 
grammes illustrent la façon 


d'utiliser Proclock (mais seule- 
ment en émulation « Super- 
clock ») en Basic Microsoft. 


L’autre face de la disquette est 
réservée à des programmes Pas- 
cal ainsi qu’à une nouvelle 
« library » comportant des 
fonctions pré-compilées permet- 
tant la lecture et l’affichage du 
temps. Proclock fournit aussi un 
nouveau «system startup », 
l’équivalent Pascalien du 
« Hello » Basic, qui met à jour 
la date et l’inscrit sur la disquette 
(évitant ainsi la frappe des mul- 
tiples commandes réalisant nor- 
malement cette opération). 


Malheureusement ce pro- 
gramme comporte deux petites 
erreurs : 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Meca Basic 

20 programmes en Basic 
de mécanique appliquée 
pour l*“et terminales 
S et TS et IUT 

Thierry Tacquet 

et Francis Legroux 
Éditions PSI 

Lagny, 1984 

Broché, 146 pages 

Prix : 95 FF 


Le livre du lecteur de 
disquette 1541 

Lothar English 

et Norbert Szczepanowski 
Traduit par Pascal Hausmann 
Micro Application 

Paris, 1984 

Broché, environ 300 pages 
Prix : 179 FF 


Amstrad - le Basic 

au bout des doigts 

Rampow 

Traduit par Pascal Hausmann 
Micro Application 

Paris, 1985 

Broché, 190 pages 

Prix : 149 FF 


La pratique du Fortran 77 
Patrice Lignelet 

Éditions Masson 

Paris, 1985 

Broché, 232 pages 

Prix : 130 FF 


Graphisme scientifique 
de la 2° à la 3° dimension 
50 applications résolues 
en Basic 

Robert Dony 

Éditions Masson 

Paris, 1985 

Broché, 254 pages 

Prix : 110 FF 


e Pascal ne garde pas trace de 
l’heure mais seulement du jour, 
aussi restreindra-t-on l’affichage 
à la date seulement ; 


e le startup de Proclock met à 
jour la date (mais seulement sur 
la disquette et non pas en 
mémoire). On peut évidemment 
corriger le programme. 


L’électronique est extrême- 
ment soignée (Practical Periphe- 
rals offre d’ailleurs une garantie 
de 5 ans, ce qui est assez excep- 
tionnel, la garantie sur ce genre 
de matériel se chiffrant plutôt en 
mois). 


Proclock dispose d’une série 
de commutateurs et peut simu- 
ler plusieurs autres cartes hor- 
loge (Apple Clock, SuperClock 
IT et Thunderclock Plus). 


De plus Proclock fonctionne 
avec une grosse pile au lithium 
qui lui donne une autonomie de 
10 ans (à cette époque l’Apple 
figurera avec la De Dion-Bouton 
au Musée des Sciences et 
Techniques !) 


Un seul point noir (mais de 
taille !), l’horloge Proclock 
coûte une fortune : 2384 FF ttc, 
pratiquement le prix d’un micro 
familial. 


Proclock est distribuée par 
Alpha-Systèmes, 29 boulevard 
Gambetta, 38000 Grenoble. 


PF 


Le langage LM 
E. Mazer 

et J.-F. Miribel 
Éditions Cepadues 
Toulouse, 1985 
Broché, 112 pages 
Prix : 110 FF 


Dictionnaire lexique 
micro-informatique 
H. Chuquet 

et J.-C. Fantou 
Éditions Radio 
Paris, 1984 

Broché, 262 pages 
Prix : 145 FF. 


Amstrad programmes Basic 
Tome 2 

Luers 

Traduit par Pascal Hausmann 
Micro Application 

Paris, 1985 

Broché, 182 pages 

Prix : 129 FF 
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L'utilisation de 
l’Amstrad CPC 464 

lan Sinclair 

Traduit par Alain Pierrot 
Hachette Informatique 
Paris, 1985 

Broché, 254 pages 

Prix : 125 FF 


Basic sans peine 
Auto-initiation au Basic 
MOS TO7/70 

Livre accompagné de deux 
cassettes 

André Deledicq 
Cedic-Nathan TO-TEK 
Paris, 1985 

Broché, 192 pages 

Prix : 175 FF 


Assembleur et périphériques 
des MOS5 et TO7/70 
Frédéric Blanc 

et François Normand 
Éditions PSI 

Lagny, 1985 

Broché, 124 pages 

Prix : 85 FF 


Introduction à la 
robotique 

Pierre Lopez 

et Jean-Numa Foulc 
Éditions Éditests 


Tome 1 : Notions de base, 
architecture, systèmes 
actionneur et sensoriel, 
modes de fonctionnement 
Paris, 1984 

Broché, 320 pages 

Prix : 190 FF 


Tome 2 : Communication 
homme-machine, 
programmation et 
commande, transformations 
homogènes 

Paris, 1985 

Broché, 286 pages 

Prix : 190 FF 
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EPUIS l'arrivée des « phé- 
nomènes » Apple qu’ont 
été dans leur temps Lisa puis 
Macintosh, le concept de « sou- 
ris » qu’on pointe et « clique » 
est devenu un mythe dont rêvent 
les possesseurs d’ordinateur. 
Sans discuter à perte de vue sur 
les avantages et les inconvénients 
de ce système (et le clavier, 
alors ?), un peu de bon sens 
montre que ce gadget n’est pas 
forcément réservé à des machi- 
nes privilégiées. Témoin, cette 
prothèse sur Dai, qui fonctionne 
parfaitement. 


C’est la nouvelle fédération 
des clubs Dai belges (IDC, Inter- 
national Dai Club) qui a eu 
l’idée de repenser le problème à 
la base. Une souris n’est ni plus 
ni moins qu’une manette de jeu 
un peu spéciale : au lieu de l’ha- 
bituel « manche à balai », c’est 
généralement une bille qui trans- 
met l’information de position 


TN ARRU 


Manuel technique du MO5 
Michel Oury 
Cedic-Nathan TO-TEK 
Paris, 1985 

Broché, 120 pages 

Prix : 125 FF 


Introduction à MSX 
Alain Perbost 

et Didier Berthet 
Éditions Édimicro 


Paris, 1985 aux potentiomètres, par l’inter- 
Broché, 142 pages médiaire de galets à frottement 
Prix : 108 FF doux. Quant au bouton qui 


Premiers pas en Basic 
Susan Curran 

et Ray Curnow 

Traduit par Gérard Schmitt 
Hachette Informatique 
Paris, 1984 

Broché, 192 pages 

Prix : 99 FF 


L'ordinateur pour apprendre 
Susan Curran 

et Ray Curnow 

Traduit par Gérard Schmitt 
Hachette Informatique 
Paris, 1985 

Broché, 168 pages 

Prix : 99 FF 


Introduction à la 
micro-informatique 
Peter Laffety 
Traduit par Pierre Grammat 
Hachette Informatique 
Paris, 1984 

Broché, 184 pages 
Prix : 99 FF 


Destination aventure 


Programmes de jeux de Envoyer ce bon accompagné 


PROGRAMMES 


"Programmation inventive” par Xavier de la Tullaye 
160 pages - 100,00 FF. 


e mieux utiliser les mots 
de la programmation. 

e mettre au point un 
organigramme. 

e réaliser le programme. de 

son invention à son utilisation. 


Une souris pour le Dai 


« clique », c’est un simple 
contacteur à fermeture. Plutôt 
que de « bricoler » tout ça, les 
membres de l’IDC ont préféré 
faire le tour des souris du mar- 
ché, afin de voir s’il n’existait 
pas de modèle modifiable faci- 
lement, pour l’adapter au Dai. 
Leur choix s’est porté sur la TRS 
80 Color Mouse. Les potentio- 
mètres ont la valeur requise, et 
il suffit simplement d’en modi- 
fier le câblage, et de changer la 
prise Din, à l’autre extrémité de 
la « queue » de la souris. Aus- 
sitôt dit, aussitôt fait. Reste à 
inventer le logiciel qui utilise ce 
nouveau périphérique. IDC pro- 
pose déjà un Éditeur de dessin 
qui reprend le concept des icô- 
nes : on les sélectionne en « cli- 
quant » dessus la flèche que la 
souris promène à l’écran. Inutile 
de vous faire un dessin. 


Ce genre d’adjonction de péri- 
phérique est envisageable sur 
tout ordinateur qui possède des 
entrées analogiques pour ses 
manettes de jeu (entrées poten- 


———— — — — — 
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el 
rôle et d’aventure sur èql ta: BP 8677402 a 
Commodore 64 Dé à HS LAGNY/MARNE CEDEX  — | 

Tél. (6) 006.44.35 

Delton T. Horn | 
Adapté par Gigi Nom Prénom | 
Éditions PSI | Adresse 
Lagny, 1984 Code Postal Ville 
Broché, 244 pages Je commande la "Programmation inventive" et joins un chèque de F 100.00. 
Prix : 140 FF 
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tiométriques). Selon le cas, il 
sera peut-être nécessaire de rec- 
tifier la résistance de la piste car- 
bonée, avec un petit ajustable 
(trimmer) en parallèle sur le cur- 
seur et l’extrémité « froide » du 
potentiomètre. Si, comme pour 
le Dai, la bonne valeur se situe 
aux alentours de 100 Kohms, ce 
travail est inutile. 

Pour plus de renseignements 
techniques, ou bien pour obte- 
nir l’éditeur de dessin fonction- 
nant avec cette souris, 
contacter : 

International Dai Club Belgique 
Fabrice Duluins 

4 allée Tour Renard 

B-1400 Nivelles 

ou 

International Dai Club France 
Bruno Delannay 

Résidence Les Acacias 

Bat. B3, avenue de Saige 
33600 Pessac 


AM 


UN LIVRE 


Amstrad trucs et astuces 
pour le CPC 464 
English, Germer, 
Scheuse, Thrlin 

Édité en français par 
Micro Application 
Rueil-Malmaison, 1985 
Broché, 280 pages 

Prix : 149 FF 


l'heure où je rédige ces 
lignes, la littérature con- 
cernant l’Amstrad est encore 
rare. Aussi, l’édition d’un 
ouvrage consacré à cette nou- 
velle machine ne pouvait 
qu’aiguiser une saine curiosité. 
Trucs et astuces pour le CPC 464 
est la traduction française d’un 
livre édité en Allemagne par 
Data Becker, éditeur informati- 
que bien connu outre-Rhin. 

Ses quatre auteurs ont été visi- 
blement passionnés par l’Ams- 
trad et certainement pressés par 
le temps. Il en résulte un livre 
dense, un peu « touche à tout », 
de qualité inégale selon ses 
chapitres. 

Les premiers thèmes abordés 
concernent le graphisme haute 
résolution et la programmation 
des caractères. Quelques courts 
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programmes sont fournis, qui 
complètent la notice de l’appa- 
reil. Certains éléments ne sont 
qu’une répétition de cette notice. 
Une étude de plus haut niveau 
concerne la gestion de l’écran. 
Cette étude ne sera guère acces- 
sible aux purs débutants : elle est 
un peu « pointue ». 

Viennent ensuite les possibili- 
tés sonores, et un petit pro- 
gramme d’édition musicale. Ici, 
les explications sont soit trop 
simples pour celui qui « connaît 


la musique » ; soit un peu trop 
ardues pour le complet béotien. 

Quant à l'introduction au 
langage-machine, elle ne 
s’adresse ni aux vrais débutants 
ni aux champions du Z80. 
L’étude rapide du système d’ex- 
ploitation et du Basic ravira les 
passionnés bien armés pour en 
tirer profit : plusieurs pages sont 
consacrées à diverses routines 
système utilisables depuis Basic. 
C’est passionnant. Tout n'étant 
pas dit, il y a là de quoi encou- 
rager des recherches. 

D’autres indications arrivent 
ensuite, destinées plutôt aux 
débutants : précision et vitesse 
de calcul, tri de données. Sur le 
thème « transmissions de don- 
nées du CPC au Commodore 
64 », un programme est pro- 
posé, destiné au Commodore ! 

Le livre s’achève sur une étude 
approfondie de deux program- 
mes plus complexes (fichiers et 
traitement de texte), et sur deux 
courts programmes de jeu. 
pour débutants. 

Voici donc un livre un peu 
décousu, certes, mais à coup sûr 
un trésor pour qui veut en savoir 
plus sur son Amstrad. Débu- 
tants et connaisseurs y trouve- 
ront matière à réflexion. 


JPL Œ 


Apple Expo 85 
au Parc des Expositions 
les 14, 15 et 16 juin prochains 


OUR la seconde fois (la pre- 
mière Apple Expo s'était 

tenue les 22, 23 et 24 juin 1984), 
Apple donne rendez-vous au 
Parc des Expositions de Paris, à 
ceux qui, de près ou de loin, s’in- 
téressent à ses productions. 

Pendant trois jours et sur plus 
d’un hectare, les « applemania- 
ques » retrouveront concession- 
naires, développeurs, éditeurs et 
médias spécialisés dans les pro- 
duits de la firme américaine. 

A la disposition du public, 
plus de 120 ordinateurs en 
démonstration dont le Macin- 
tosh géant et, sur un stand spé- 
cial, accès libre aux serveurs du 
monde entier. 
Apple Expo 
Parc des Expositons 
Porte de Versailles (Paris) 
Bâtiment 1.1 
vendredi 22 juin, de 11 à 22h 
samedi 23, d9h30à 22h 
dimanche 24, de 9 h 30 à 19h 
Entrée : 50 FF 


A Cogolin 
dans le Var, 
1er Salon informatique 


RGANISÉ par le club in- 

formatique, sous l’égide de 
la municipalité et de la région, 
le premier Salon informatique de 
Cogolin se tiendra les 2, 3 et 4 
juin prochains au Centre cultu- 
rel de la ville. 

Journée réservée aux associa- 
tions, le dimanche 2 juin sera 
consacré à l'accueil des clubs 
varois. Les lundi 3 et mardi 4 
suivants, ce sont les profession- 
nels qui présenteront leurs maté- 
riels. 

L'entrée de ce Salon est gra- 
tuite. 

Centre culturel de Cogolin 
Avenue Georges Clémenceau 
83310 Cogolin 

Pour plus de renseignements, 
vous pouvez appeler aux numé- 
ros suivants : 

(94) 56 36 52, (94) 56 32 40 


UN CLUB... UN SALON... UNE FOIRE... 


On achève bien 
les programmeurs 


VIS aux forçats du micro- 
processeur, stakhanovis- 
tes de la programmation, les 4 et 
5 mai prochains auront lieu à 
Paris les premières 24 heures de 
l'Informatique. Cette compéti- 
tion non-stop rassemblera, 
24 heures durant, cent concur- 
rents originaires de différents 
pays francophones qui devront 
concevoir un logiciel à vocation 
pédagogique, destiné au 
Hewlett-Packard 150. 

Les équipes de deux personnes 
qui disputeront ce premier mara- 
thon de l’informatique seront 
réparties en deux catégories : 
amateurs et professionnels sala- 
riés des métiers de l’informa- 
tique. 

Cette épreuve, patronnée par 
le Centre d'Études Supérieures 
en Bureautique et Informatique, 
sera ouverte aux amis et SUppor- 
ters des concurrents. Un vérita- 
ble 24 h du Mans, version cir- 
cuits intégrés. 

Les vainqueurs du Grand Prix 
recevront un Hewlett-Packard 
HP-150 à écran tactile, d’une 
valeur de 41500 F. 

D'ores et déjà, les organisa- 
teurs de ces 24 heures prévoient 
de recevoir quelque 5000 dos- 
siers d’inscription. 

Conséquence : les épreuves de 
qualification seront particulière- 
ment sévères. Chaque candidat 
devra faire montre de ses apti- 
tudes à la programmation et à 
l’analyse informatique avant de 
pouvoir accéder aux demi- 
finales, qui éprouveront la résis- 
tance physique et la capacité à 
travailler en équipe des candi- 
dats. Les cent meilleurs partici- 
pants de ces demi-finales pour- 
ront enfin accéder à la grande 
finale. 

Là encore des surprises avec 
des « micro-sprints », où les 
programmeurs devront résoudre 
quelques petits problèmes infor- 
matiques au cœur de la nuit. 

Coup d’envoi de ces 24 heures 
samedi 4 mai à 16 h (40, rue de 
Liège, Paris 8°). Les bulletins 
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d'inscription sont à retirer à 
l'adresse suivante : 


Les 24 heures de l’informatique 
40 rue de Liège 

75008 Paris 

Tél. : 293 12 50 


Microfer 
le club informatique 
de la SNCF 


ICROFER, qui compte 
déjà plus de 1 000 adhé- 
rents, propose un ensemble d’ac- 
tivités variées ouvertes aux débu- 
tants en informatique comme 
aux confirmés : initiation à la 
programmation en Basic, réduc- 
tions sur le prix de nombreux 
matériels, publication d’un bul- 
letin intitulé « Interface », etc. 
En collaboration avec 
l’Agence de l’Informatique et la 
Direction commerciale voya- 
geurs de la SNCF, Microfer par- 
ticipe également aux séances 
d'initiation à l'informatique 
organisées dans les trains Loisi- 
rail. 

Les conditions d’adhésion 
1984/1985 sont les suivantes : 
pour les cheminots et leur 
famille, la cotisation s'élève à 
200 F et son renouvellement à 
100 F, pour les autres personnes, 
l’adhésion se monte à 400 F et 
son renouvellement à 200 F. 
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Si vous souhaitez adhérer au 
club ou en savoir plus sur ses 
activités, vous pouvez écrire à : 
Microfer 
1 bis rue d'Athènes 
75009 Paris 


Dans les Hauts-de-Seine, 
stages d’informatique 
au Centre X2000/ 

Les Corolles 


E Centre X2000/Les Corol- 

les de Courbevoie propose 
des stages d'initiation à l’infor- 
matique, au Basic et au Logo et 
des stages de perfectionnement 
par l’approche de logiciels pro- 
fessionnels (gestion de fichier, 
traitement de texte, etc.). 

Il est possible de choisir entre 
deux formules : trois jours com- 
plets ou deux soirées par semaine 
pendant cinq semaines (le lundi 
et le jeudi ou le mercredi et le 
vendredi de 18 à 20 h). 

Le prix des stages d'initiation 
est de 400 F, celui des stages de 
perfectionnement de 800 F. Ils 
se déroulent au 
Centre X2000/Les Corolles 
13 place des Corolles 
92400 Courbevoie 

Pour plus de renseignements, 
vous pouvez contacter Mile 


Edith bo au (1) 773 64 0 


OGRAMMATION 


Des algorithmes en Pascal 
pour construire des 
programmes en s'appuyant 


réflexion” par Louis Jardonnet . #, 
106 pages - 110,00 FF. 


UN LIVRE 


ABC de cryptographie 
Romain Roubaty 
Editions Masson 
Paris, 1984 

Broché, 210 pages 
Prix : 136 FF 


E livre de la collection 
Méthode + Programmes 

est, comme son nom l’indique, 
un ouvrage d'initiation. Mais la 
cryptographie y est directement 
abordée par la face Nord, je 
veux dire sous son angle le plus 
abrupt, celui du décryptement. 
En contrepartie le choix d’esca- 
lades qui nous est proposé est 
sagement limité à des procédés 
de substitution ou de transposi- 
tion simples et classiques. En 
prime un exposé du One-time, 
des indications sur les procédés 
à clefs publiques et une version 
abrégée de l’un d’entre eux, le 
Deffie-Hellman, sans lesquels le 
titre d’ABC du décryptement eut 
été plus justifié. Mais on reste 
inévitablement assez en deçà du 
niveau actuel des problèmes 
majeurs liés au développement 
explosif des capacités de calcul 


| et des besoins de sécurité, et à 


celui plus progressif des théories 
de la complexité. 

L’auteur a le très grand mérite 
de montrer avec clarté et rigueur 
comment l’informatique permet 


= . Nom 
Sur une classification 
logique des jeux Prénom 
de réflexion les plus AT SE 
classiques. 
Code Postal 
"La programmation des jeux de Ville 


ee ne ee ne CS ES ES CRE OR ES ee mme 


— 
|Envoyer ce bon accompagné 
de votre règlement à : 


Je commande "La programmation des jeux 
de réflexion" et joins un chèque de F 110,00. 


la démolition rapide et quasi 
automatique des procédés de la 
cryptographie classique. Chaque 
application fait l’objet de pro- 
grammes annotés de REM per- 
mettant d’en suivre le 
fonctionnement. 

Si les décrypteurs se sont sou- 
vent illustrés par des intuitions 
géniales, c’est à leur patience 
méthodique qu’ils doivent l’es- 
sentiel de leurs succès. L’infor- 
matique prend aujourd’hui en 
compte tout le côté fastidieux 
des décomptes statistiques, de 
l'application des hypothèses suc- 
cessives, des retours en arrière, 
etc. Les outils développés par 
Romain Roubaty semblent par- 
faitement adaptés à tous ces tra- 
vaux et, soit tels quels, soit 
comme prototypes à remanier en 
fonction des besoins, ils seront 
très utiles à ceux que tente un 
apprentissage du décryptement. 
Un matériel assez complet avec 
disquettes, imprimante, et ges- 
tion de fichiers leur sera néces- 
saire. Le Deffie-Hellman exige 
de son côté des fonctions de cal- 
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cul en multi-précision sur 
28 chiffres. Encore s’agit-il d’un 
exercice d’école, les applications 
en vraie grandeur, mettant en 
jeu des nombres de 100 à 200 
chiffres, n’ont finalement pas 
résisté aux assauts des décryp- 
teurs qui ont « cassé » tout der- 
nièrement ce procédé. 

L’auteur pousse parfois le 
scrupule jusqu’à suivre fidèle- 
ment les méandres ayant abouti 
à certaines créations (alphabet 
cyclique de Delastelle) plutôt que 
les raccourcis conduisant à un 
résultat équivalent (ici, alphabet 
désordonné vertical calé de 
façon à redonner, en clef Z, l’al- 
phabet normal). Le caractère 
didactique de cet ouvrage nous 
prive en revanche des anecdotes 
dramatiques ou cocasses qui 
jalonnent l’histoire de la 
cryptographie. 

Enfin les textes poétiques — 
de qualité — choisis comme 
exemples récompenseront agréa- 
blement les lecteurs qui auront 
suivi pas à pas leur reconstitu- 
tion à partir de rébarbatives ver- 
sions chiffrées. 

PB Æ 


Lecteurs de 
disquettes portables 


quoi bon un portable si 
son utilisation requiert 
impérativement une prise de 
courant ? Une simple question 
qui pour l'instant n’avait pas 
encore de réponse concluante. Et 
pour s’en convaincre un rapide 
coup d’œil à l’impressionnante 
armada de périphériques et de 
fils s’y rattachant suffisait. 

Le tout est à mettre au passé 
puisque les Japonais (en l’occur- 
rence Citizen Watch Company) 
viennent d’annoncer la sortie de 
deux modèles de lecteurs de dis- 
quettes 3,5 pouces portables, 
entièrement autonomes, alimen- 
tés par des piles de 5 volts. Le 
lecteur ne pèse que 450 grammes 
et accepte, selon les versions, des 
disquettes simple ou double 
densité. 

Il en coûte environ 2000 F 
pour un lecteur 500 Ko et 2500 F 
pour la version 1 méga-octet. 
Une désillusion toutefois, ces 
lecteurs « miracles » ne sont dis- 
ponibles, pour l’instant, qu’au 
Japon. CL) 


* Un MSX coréen en France 


la suite d’un accord entre la firme coréenne Lucky Gold- 
star International Corporation et la société française 
ASN Diffusion Electronique, cette dernière est habilitée à distri- 


buer le FC-200 (conçu par la firme coréenne) sous le nom de Golds- 
tar/Asn. 


Accompagné d’un manuel d’utilisation en français, d’une cas- 
sette de démonstration et de cordons de raccordement Péritel et 
magnétophone, cet ordinateur familial aux normes MSX devrait 
être disponible début mai au prix public de 2 590 FF. CL] 
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CASSETTES ET DISQUETTES 


IN 


Logo-Logic 2 
Langage d'initiation à la 
programmation 

Cassettes et disquettes 
pour C.64 

Edité par No Man’s Land 
Distribué par Innelec 

Prix : 495 FF 


Es Forth 

Cassette pour Atari 400/800 
et XL 32 Ko 

Mode d’emploi en anglais 
Edité par English Software 
Distribué par Innelec 

Prix : 180 FF 


Odin 
Editeur-désassembleur 
Assembleur symbolique 
Cassette pour MO 5 
Edité par Loriciels 
Prix : 295 FF 


Compilateur 

Compilateur Basic 

Cassette pour ZX Spectrum 
Edité par Ere Informatique 
Prix : 250 FF 


Extra Tool 64 

Basic étendu 

S’utilise avec la cartouche 
Tool 64 

87 instructions nouvelles 
(dont 42 spécifiques à 
Extra Tool) 

Disquette ou cassette 
pour C.64 

Edité par Micro Application 
Prix : 245 FF 


dan 
2) CS 
ESA 7 


Basic 64 
Compilateur Basic 
Disquette pour C.64 

Edité par Micro Application 
Prix : 350 FF 


Logo 

Initiation à la géométrie 
d’exploration par 
l’intermédiaire de la tortue 
Cassette pour MSX 

Mode d’emploi en anglais 
Édité par Kuma 

Distribué par Innelec 

Prix : 235 FF 


AssDesass 
Assembleur-désassembleur 
Cassette pour TO 7-TO 7/70 
et MO 5 

Edité par Infogrames 

Prix : 350 FF 


Max 

Assembleur, moniteur 
Cassette ou disquette 

pour C.64 

Edité par Micro Application 
Prix de la cassette : 195 FF 
Prix de la disquette : 350 FF 


Logor 

Logiciel-langage destiné aux 
apprentis de la 
programmation. 

Permet de s’initier à la 
géométrie informatique de 
Logo 

Cassette pour Oric 1/Atmos 
Edité par Infogrames 

Prix : 160 FF 
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| DTL 2000 Plus, 
un téléphone pour les ordinateurs 


L ES ordinateurs ont aussi besoin de communiquer entre eux. 
Leur téléphoné s’appelle « modem ». Le DTL 2000 Plus, 
présenté à Micro-Expo (du 16 au 19 février 1985, à Paris), est com- 
patible avec les micro-ordinateurs : Apple Ile, Apple II+, Com- 
modore 64, Oric, Spectrum, et avec une sortie RS-232C pour les 
autres ordinateurs. Le prix de ce modem est de 1 990 FF ttc. 


Digitelec Informatique 
Parc Club Cadéra 
Avenue J.F. Kennedy 
33700 Mérignac 

Tél. (56) 34 44 92 


Baisse de prix 
pour l’Alice 32 Ko 


PRÈS le Spectrum Plus 

de Sinclair, qui a vu son 

prix passer de 2 320 F à 1 660 F 

(voir LIST 8 page 16), c’est 

l’Alice 32 Ko de Matra qui enre- 

gistre une baisse de près de 
17 %. 

Depuis le 15 mars dernier en 
effet, 995 F suffisent pour 
acquérir un Alice 32 Ko qui coû- 
tait jusqu'alors 1 195 F. 

Souhaitons que d’autres cons- 
tructeurs s’engagent sur la même 
voie et que nous puissions, dans 
les mois prochains, annoncer de 
nouvelles baisses intéressantes. 


Série limitée 


EPUIS le 15 avril 1985, 
Vidéo Technologie dif- 

fuse le Laser VZ 200, ordinateur 
disposant de 4 Ko de mémoire 
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vive, 16 Ko de mémoire morte, 
9 couleurs programmables, 16 
caractères graphiques, 3 modes 


d'affichage, un écran de 
12 lignes sur 32 colonnes, une 
haute résolution de 128 sur 
64 points pour 8 couleurs, un 
clavier de 45 touches, un micro- 
processeur Z80 A. 

Ce VZ 200 est livré en Pal 
avec tous les accessoires permet- 
tant de le modifier en Secam 
Péritel. Il dispose des logiciels 
pour Laser 200 et 310. 

Son principal intérêt : il ne 
coûte que 690 FF ttc (+40 FF 
de port pour un règlement à la 
commande, +70FF de port 
pour une expédition en contre- 
remboursement). De quoi 
découvrir le Basic pour une 
somme vraiment modique. 

Mais attention, la série est 
limitée à 3 000 exemplaires. 
Vidéo Technologie France 
19 rue Luisant 
91310 Montlhéry 
Tél. (6) 901 93 40 LI 


Atari à aiguille 


| ES ordinateurs Atari peu- 
vent choisir leur impri- 


mante : après l’Atari 1020 à 


4 couleurs et l’Atari 127 qualité 
courrier, voici maintenant 
l’Atari 1029. C’est une impri- 
mante matricielle à aiguille, dont 
la vitesse d’écriture est de 
50 caractères par seconde. Avec 
l’Atari 800XL, elle permet aussi 
de créer des graphismes propres 
à la machine, sur simple feuille 
ou sur bande de papier. Son prix 
public (moyen) est de 2 100 FF. 

LC] 


Pour la défense 
de logiciel 


OULAGEMENT pour les 
uns, angoisse pour les 
autres, un groupe de juristes, 
d’experts en informatique et de 
conseillers juridiques et fiscaux 
vient de créer à Paris J’Associa- 
tion Française de Droit de l’In- 
formatique (AFDI). 


Envoyer ce bon 
accompagné de 
| votre règlement à : 


| Nom  _— 
Adresse___ —— 
Ville 


L'AVENTURE 
VOTRE MICRO! 


Prénom _—_—_ 


Son but : « réunir toutes les 
personnes concernées directe- 
ment ou indirectement par les 
problèmes juridiques en relation 
avec l'informatique ». A cet: 
effet, l’AFDI organisera des réu- 
nions, des manifestations natio- 
nales et internationales « suscep- 
tibles de favoriser la connais- 
sance et l’évolution du droit de 
l'informatique ». 

L’AFDI devrait en outre per- 
mettre aux praticiens et aux 
chercheurs de « confronter leurs 
expériences et leurs réflexions 
afin de dégager des lignes direc- 
tives en matière de droit 
informatique ». 

Des travaux qui devraient 
aider, à plus ou moins long 
terme, à élaborer une législation 
cohérente pour la protection des 
logiciels. Pour tout renseigne- 
ment : 

Tribunal de Commerce 
1 quai de Corse 
75001 Paris 


P.S.I. DIFFUSION 
B.P. 86 


77402 LAGNY/MARNE Cédex 
Tél. (6) 006.44.35 


Je commande "La programmation des jeux d'aventure" et joins un chèque de FF 90,00. 
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PETITE HISTOIRE DES LANGAGES 


LA SECONDE NAISSANCE 


DU BASIC 


(AUTHENTIQUE CONTE DE NOËL) 


I le Basic initial, créé par John Kemeny, était 
une merveilleuse astuce pédagogique 

d'universitaire, il devient, grâce à 
William H. Gates, dit Bill, un puissant outil de 
développement aux répercussions culturelles et 
économiques considérables pour notre décennie. 
Ainsi, après John Kemeny, le nom le plus célèbre 
du Basic est celui de Bill Gates. 


Quelle voie normale un juriste 

puissant et renommé de Seattle 
(siège de Boeing, dans l’état de Was- 
hington) peut-il envisager pour son fils 
né en 1956 ? Le droit, naturellement, 
surtout dans un pays où les carrières 
juridiques jouissent d’un tel prestige et 
peuvent conduire à tous les pouvoirs. 
C'est, en tout cas, le choix que fit le père 
de William H. Gates. Aujourd’hui, Bill 
(pour tous les mordus de micro-infor- 
matique) devrait être, à près de trente 
ans, l’une des étoiles montantes du bar- 
reau ou de la magistrature américaine. 
Mais il aimait tellement les 
mathématiques ! 


Étudiant à Harvard, il hésite encore 
entre ses désirs et la pression paternelle 
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quand, une nuit de Noël... mais n’anti- 
cipons pas. Il faut dire aussi que, déjà 
vers 1969, il s'était découvert un hobby 
plutôt illégal : le « piratage » d’un 
système de temps partagé professionnel, 
aussi sérieux que celui de Digital Equi- 
pement ou celui de Control Data Cor- 
poration (en France, il aurait peut-être 
intéressé l’hebdomadaire « Le Canard 
Enchaîné »). 11 lui arriva même de se 
faire pincer et d’être engagé, du coup, 
par la Control Data Corporation pour 
l’aider à mieux protéger ses filières d’ac- 
cès ! C’est devenu plus banal en 1985, 
mais à l’époque... 

Avec son camarade de classe Paul 
Allen, il acheta pour 360 dollars l’un des 
premiers microprocesseurs Intel 8008 


(sorti en 1971), puis créa en 1972 la 
société Traf-O-Data pour tenter de 
régulariser le trafic dans la banlieue de 
Seattle. (On trouvera des détails pas- 
sionnants sur cette première, mais aussi 
sur l’histoire peu connue de l’ordinateur 
individuel, dans le best-seller de Paul 
Freiberger et Michael Swaine, Silicon 
Valley, chez McGraw Hill). 


Une intéressante livraison d’avril 
1984 de la revue Time révèle, par ail- 
leurs, une autre « affaire » de Bill Gates 
alors âgé d’une dizaine d’années à 
peine : il aurait mis au point un emploi 
du temps scolaire lui permettant d’op- 
timiser, en choisissant ses « unités », le 
nombre de ses petites camarades de 
classe, prises bien entendu parmi les plus 
mignonnes… 


En 1974, il entrait en première année 
de droit à Harvard, sans avoir vraiment 
abandonné toute idée de carrière mathé- 
matique ; mais il n’aura pas le temps, 
nous le verrons, de régler tout à fait ce 
conflit personnel. Le numéro de janvier 
1975 de Popular Electronics portait, en 
couverture, la photographie du premier 
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Il 


véritable micro-ordinateur commercia- 
lisé sur une certaine échelle : le mythi- 
que Altair. Aux environs de Noël, le 
vieux copain Paul Allen, alors program- 
meur chez Honeywell à Boston, acheta 
un exemplaire de ce journal au « Nini’s 
Corner » de Harvard Square et bondit 
chez Bill Gates, tout excité. Effrayés à 
l’idée que leur chance allait peut-être 
leur passer sous le nez, les deux gamins 
(respectivement dans leur vingtième et 
vingt-deuxième année) téléphonèrent à 
Albuquerque, dans le Nouveau- 
Mexique, au siège de la compagnie 
MITS (Micro Instrumentation and Tele- 
metry Systems) de Roberts et ils propo- 
sèrent, sous six semaines, un Basic (le 
MBasic) pour l’Altair 8800. 


Ce n’était pas — même pour cette 
machine alors toute récente qui tournait 
à peu près correctement depuis l’été 
précédent — le premier Basic qu’on 
avait écrit à des fins utilitaires ou com- 
merciales. On peut par exemple citer un 
Tiny Basic d’Allison et d’autres encore. 
Le problème technique, cependant, était 
redoutable : l’ordinateur construit sur 
le 8080 d’Intel (une version améliorée du 
8008), n’avait en standard que 256 
octets (!) de mémoire vive ; une version 
de travail chez MITS comportait sept 
cartes, chacune d’un Koctet, et l’inter- 
préteur Basic devait se loger en 
4 Koctets. 

Bill Gates et Paul Allen, qui avaient 
déjà vainement essayé d’implanter un 
langage de ce type sur leur vieux micro- 
processeur personnel, travaillèrent 
comme des fous, calmant tant bien que 
mal leurs familles. Le plus extravagant 
est qu’ils écrivirent ces 4096 octets sans 
avoir vu l’ordinateur, à des milliers de 


kilomètres de là, qu’ils avaient dû simu- 
ler assez imprécisément sur une grosse 
machine (sans doute plus ou moins clan- 
destinement, à l’Université). 


On peut lire dans Silicon Valley com- 
ment Allen, seul dans l’avion, dut écrire 
à la dernière seconde un programme 
d’assembleur 8080 pour pouvoir char- 
ger, à l’aide de la bande perforée, leur 
langage à l’intérieur du véritable Altair 
qu’il ne connaissait pas. Enfin le célè- 
bre MEMORY SIZE? s’imprima — pas 
encore d’écran à l’époque, bien entendu 
— et, dit-on, Allen osa demander à son 
programme d’exécuter l’incroyable ins- 
truction PRINT 2 +2, qui voulut bien 
réagir conformément à toutes les axio- 
matiques connues et à venir de l’arith- 
métique classique et/ou moderne. 


Le Basic 


le plus célèbre 


Le reste est toute l’histoire de Traf- 
O-Data devenu Microsoft, heureuse- 
ment très vite indépendante de l’Altair 
et de son échec commercial ultérieur. La 
firme devait inonder le marché (Tandy, 
Apple — même si |’ Applesoft, écrit par- 
tiellement à partir du propre Basic de 
Wozniak pour l’Apple I est, assez bizar- 
rement, orné de quelques particularités 
discutables —, puis enfin IBM avec le 
Basic-A de son PC) de versions multi- 
ples du plus célèbre Basic de tous les 
temps, devenu rapidement un standard. 


Aujourd’hui Allen, malade, ne tra- 
vaille plus aussi régulièrement avec son 


ami. Microsoft a su — chose rare en 
micro-informatique — ne pas être la 
société d’un seul succès. Elle a pu répan- 
dre sous sa marque au moins trois best- 
sellers dont MS-DOS et Multiplan. Sa 
réussite semble moins facile aujourd’hui 
(il est clair par exemple que la mise au 
point de MS-Win est assez problémati- 
que). Mais le génie de Gates, par ailleurs 
manager hors pair (comme il sut le 
prouver en réussissant à dégager sa com- 
pagnie au moment de la vente de la 
MITS qui considérait le Basic comme sa 
propriété et non celle de ses auteurs) 
nous promet sans doute encore de bel- 
les réussites. Rien qu’avec le Basic, il a 
déjà marqué de façon indélébile toute 
la branche logicielle, et peut-être sur cer- 
tains points la branche matérielle de la 
micro-informatique. 


Une partie de l’histoire des applica- 
tions de l’ordinateur individuel consiste 
en la rivalité de Microsoft et de Digital 
Research. Curieusement, cette dualité se 
retrouve aussi dès la mise au point des 
premiers Basic, même si, par exemple, 
le CBasic plus ou moins issu de Gary 
Kildall est méconnu par rapport à celui 
de Gates et Allen. Kildall était un bon 
prof d’informatique, spécialisé dans la 
théorie des compilateurs, à l'US Naval 
Postgraduate School de Monterey (Cali- 
fornie). Tenté par le défi, il avait déjà 
implanté sur un Intel 8008 une version 
PL/M d’un petit bout du célèbre PL/I, 
tâche inouïe compte tenu de la lourdeur 
de ce dernier langage. Mais très vite il 
comprit la nécessité d’un logiciel spécia- 
lisé dans le contrôle des unités de dis- 
quettes ; celles-ci étaient encore prati- 
quement réservées à la « grande » infor- 
matique quand, fin 1973, il avait écrit 
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le CP/M (Control Program Monitor), 
dans son PL/M, puis en Assembleur. 
On sait quel fut le succès de ce logiciel, 
et la gloire de la société Intergalactic 
(sic) Digital Research qu’il créa pour le 
diffuser. 


Mais il avait également travaillé sur 
un interpréteur Basic et c’est ce sujet de 
recherche qu’il proposa en 1976 à un 
certain Gordon Eubanks (dont on peut 
admirer la barbe bien taillée et les lunet- 
tes d’intellectuel dans Silicon Valley). 
Eubanks accepta mais mit au point un 
CBasic, C signifiant ici « compilé » et 
non plus interprété, compatible avec 
CP/M, commercialisé dès avril 1977 par 
Digital Research, vite adopté par les 
constructeurs de l’IMSAI (autre ancê- 
tre du micro), puis également disponi- 
ble pour l’Altair lui-même. 


Les Basic innombrables qui virent le 
jour furent généralement interprétés. Ce 
fut sans aucun doute la source de leur 
développement prodigieux chez les ama- 
teurs, entraînant par contrecoup celui de 
l’ordinateur personnel. Toutefois, cer- 
tains Basic existent en versions semi- 
compilées comme Pascal presque dès le 
début de la préhistoire. (Microsoft se 
dépêcha d’ailleurs de sortir son propre 
compilateur Basic.) 


Les Basic débordèrent même très vite 
du cadre strict de l’ordinateur de table. 
C’est ainsi que, parmi une foule de nou- 
veautés, un ordinateur de poche fit sen- 
sation à la West Coast Computer Fair 
en mars 1980 au Civic Center de San 
Francisco : le fameux Sharp 1210 
(devenu 1211, puis 1212 aujourd’hui), 
avec un Tiny Basic et 400 octets pour 
l'utilisateur. Il sera tout de suite célèbre, 
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surtout aux États-Unis quand Tandy 
vendra le modèle 1211 (1424 octets de 
mémoire vive) sous le nom de TRS-80 
Pocket. Beaucoup d'étudiants, de 
lycéens ou de professeurs lui doivent 
leurs premiers PRINT 2 + 2... 


Encore quelques 


petites années... 


Essayer même de citer les principales 
versions de notre langage depuis 1975 
serait totalement utopique. Peut-être 
est-il tout juste possible, parmi les nom- 
breuses variantes, de parler un peu de 
l’une des plus récentes, qui présente une 
particularité peu courante : elle a été 
écrite par John Kemeny et Thomas 
Kurtz, mais en1984 ! En juillet de l’an- 
née précédente, ils avaient créé la société 
« True Basic » afin de promouvoir un 
Basic portable de haut niveau, tout par- 
ticulièrement graphique, compatible 
avec des standards exigeants mis au 
point par l’ANSI. Il est compilé « inter- 
activement » et non plus interprété, 
comme l’ancêtre, et se veut évidemment 
« moderne ». 


Citons pêle-mêle une grande structu- 
ration (IF-ELSE-ENDIF, DO LOOP, 
SELECT CASE...) un éditeur plein- 
écran, l’adaptabilité aux périphériques 
de type souris, des fenêtres, des défini- 
tions de fonctions pouvant dépasser la 
longueur fatidique d’une ligne, des 
sous-programmes avec variables locales, 
bref une foule d’héritages discrets de 


CCR] 


Pascal, le jeune concurrent. Le dernier 
livre de Kemeny et Kurtz, Back to Basic 
(publié à l’automne 1984 par Addison 
et Wesley) raconte l’histoire de ce lan- 
gage, de l’une à l’autre des deux ver- 
sions écrites à vingt ans d’intervalle par 
l’équipe de Dartmouth College. 


Bien sûr, True Basic est loin d’être le 
seul dans son genre : le Basic 2.0 par 
exemple, pour Macintosh, lui ressemble 
comme un frère, et il existe des versions 
semblables, parfois même écrites par 
des amateurs enthousiastes et doués 
pour tel club d’utilisateurs. Pourtant, 
l’avenir de Basic est aujourd’hui peu 
clair. Sans aucun doute ses descendants 
musclés lui donneront un bon bol d’oxy- 
gène ; mais il est permis de croire que 
son règne sur la micro-informatique 
approche de son terme. 


Le « Beginner’s AIl Purpose » de 
demain sera plus vraisemblablement une 
nouvelle construction largement inspi- 
rée de Pascal (rendu moins raide), mâti- 
née d’un peu de Forth ou d’un autre 
avatar de Lisp, surtout si l’intelligence 
artificielle sort de son ghetto encore très 
professionnel. Mais le grand nombre de 
machines bon marché existantes, le 
coup de fouet donné (par Gates inter- 
posé) avec le Basic A adopté par IBM 
sur sa machine aujourd’hui omnipré- 
sente font évidemment que la mort de 
Basic n’est peut-être pas pour demain ! 
Encore quelques petites années, mon- 
sieur le bourreau... Au moins pour bons 
services rendus, Basic mérite bien cela ! 


André WARUSFEL 


N° 9 - MAI 85 


} 
} 


 SPECTRUM 


LES EMPRUNTS 
SE PRÊTENT... 


AUX CALC 


VANT de s'engager, parfois pour plusieurs 
années, à rembourser un prêt, on a tout 
intérêt à envisager différentes solutions. À la 
main, cela peut prendre des heures, de quoi 
renoncer souvent. Quelques minutes suffisent 


avec un ordinateur. 


Les renseignements dont on a 

besoin pour décider d’un prêt per- 
sonnel accordé par une banque (« prêt 
personnel ordinaire », prêt au titre du 
Plan Épargne-Logement ou autres) sont 
en fin de compte peu nombreux. Si l’on 
confie à un petit ordinateur la tâche 
d’effectuer les calculs, on peut facile- 
ment, et sans perdre de temps, choisir 
la formule qui convient le mieux. 


Un remboursement 


anticipé 


Le programme proposé (ici dans une 
version pour Spectrum et Spectrum + 
avec imprimante, mais l’adaptation à 
d’autres matériels est très simple) per- 
met notamment de connaître le coût et 
les conditions d’un remboursement anti- 
cipé. 

D'une façon générale, un prêt se défi- 
nit par : 

° le montant du prêt ; 

e le taux annuel consenti ; 

e l’une des deux conditions qui sont soit 
la durée du prêt, soit le montant de la 
mensualité régulière choisie. 
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JE VIENS 


L’avant-dernière condition (durée du 
prêt) est le plus souvent imposée par 
l'organisme prêteur qui exige évidem- 
ment un nombre entier de mois et quel- 
quefois même un nombre entier 
d’années. 


Quant à la dernière condition (mon- 
tant de la mensualité régulière choisie), 
elle s’impose d’elle-même à l’emprun- 
teur puisqu’elle découle de ses possibi- 
lités de financement. Dans ce cas, celui- 


EEE A 


CALCULER 
UN EMPRONT! 


ULS 


ci se fixe une mensualité régulière maxi- 
mum. Celle-ci, décidée sans rapport 
avec les conditions du prêt, détermine 
immanquablement un nombre fraction- 
naire de mois pour assurer le rembour- 
sement, ce qui n’est pas admissible. Le 
programme calcule alors quelle est la 
mensualité la plus proche pouvant être 
compatible avec un nombre entier de 
mois. 


Il faut enfin envisager le cas du rem- 


SE) TL 


MONT -DE -PIETÉ 


eZ 


ra MONT-DE 


PIÉT, 
Dh t 
GIE 


boursement anticipé dont les conditions 
peuvent être avantageuses ou pas. Il est 
accordé par l’organisme prêteur contre 
le paiement d’une pénalité de rachat qui 
dépend du nombre de mois à courir. 
Cette pénalité sera calculée à partir d’un 
pourcentage sur la somme restant due 
(3 % en général) ou de l'intérêt perçu 
par le prêteur (le total des intérêts des 
six mois suivants). Le problème se pose 
presque toujours de cette façon bien que 
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SPECTRUM 


ES 


Emprunt à remboursement mensuel 
Programme pour Spectrum 

(ou Spectrum Plus) et 

imprimante ZX Printer ou Alphacom 32 
Auteur Lucien Strebler 

Copyright LIST et l'auteur 


5 PRINT AT 1,0: 

IRSEMENT MENSUEL": 
1} 246,0: PRINT AT 
cuntes 1 5 INPUT 


RINT AT 6,8; 
LET mat 


"EMPRUNT À REM 
PLOT. 157 


om 
. L 


‘1, Mensualite" 
5,18; "2 Dureë 
"NUMNETOD choisi 7 


26 IF no=1 THEN GO SUE 
TS 4@ 

25 noz£ THEN INFH 
n Mois ini: G 

AT_12 ‘buree du 


GO TO SG: 
56 GG TO 15 
35 LET miz=s-ni#ilæini+liet 
GG: PRINT AT 16,2:'"Mensu: e 
£quise : ‘: GS0 SÛÙE 215 zni 
PRINT INUERSE L:AT 14,11: "PATI 
ENCE" G9 TG 100 
ic ÉRINT. ART 16,2: 


h915i8 : 

45 INPUT mc: PRINT AT 10,24;mc 
: AT 14.11; INVERSE 1: "PATIENCE" 

95 GG SUB £S15s 

109 GO SUE 200 

105 IF _Rd<@ THEN LET ü=n.: PRINT 
AT. des Z; "Nombre de mensusiites 


“Hensuatite € 


108" IF Rd<@ THEN : IF 
THEN LET y=1: GO TO 1 
107 IF Rd4:O THEN : IF 
THEN LET Yy=2. GO 1 
105 IF Rd<9 THEN 
120 
110 LET n=n+1: GO ve 109 
129 LET mE=mc+Pd; “M # PR 
î :AT 10, 24: IH 


156 FOR K=1 TO m: GO SUE EG: L 
ET n=n+i: NEXT K 

135 IF AES Rd:1 THEN PRINT ÀT 1 
4,2; "Cout de L'operation : “;INT 
11+.51 BEEF 353,6: CoP* i TO 
145 

140 GO TS 120 

145 GO SUB 215: LPRINT TAË a: ‘M 
De Du di "RE. TOT': TAB 13, "RGU"T 
AË INT TAE 6; "I.TOT" LPRI 
NT 

150 FOR ji=1 TO mn: G0 : & 
© SUB 205: LET n=n+1: à LP 
INT AT 15,0,'"tDetails par L'impr 
imante A 32)": STOP 

200 LET I=I+Rdxrtm: LET RP=nmcxn- 
I: LET Rd=5-Rp: RETURN 

205 LPRINT TAB OQiniTAE d:INT i# 


p+.S):TRE 12; INT iRd+.5::TAEG 80; 
INT (Rdeîme. Si: TAG 26: INT (I+.5) 
: RETURN 
215 LET Rdz=s: LET n=1: LET I=@: 
RETURN 
220 PRINT AT 9,5; “LAT 
21,12; " “AT 13,15; 
“Si AT 15,18; " 
RETURN 


On pourra bien entendu utiliser le pro- 
gramme sans imprimante au prix de quel- 
ques modifications faciles à apporter. 


Ligne 120 : 
Ligne 220 : 


.… AT 10,24 ; ‘5 intervalles’” 
.… AT 9,3 ; ‘9 intervalles’. 
AT 11,12 ; “13 intervalles” .… AT 13,15 ; 
‘2 intervalles”? AT 15,12; ‘‘16 
intervalles”? 
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ces paramètres puissent varier. Dans 
tous les cas, le montant le plus faible est 
retenu. 


Le programme ci-contre va permet- 
tre, d’une part, de connaître le montant 
de la mensualité ou la durée du prêt et, 
d'autre part, d’avoir le détail mensuel 
de l’opération. Il sera intéressant, dans 
ce dernier cas, de conserver une trace 
écrite des calculs ; l'imprimante devra 
alors avoir été préalablement branchée. 


On introduit d’abord le montant du 


EMPRUNT & REMEOURSEMENT MENSUEL 


Sonne enpruyntes 


emprunt 


Hensualite choisie 
Nombre de mensualz 


Cout de L'operatio 


© @ uù 0 D £a ON 


Jr On & @ OC BUT 
6 da a Ci 6 OT LCI A ON 


es UD UD CO C0 -.2 ef PQ C7 LM M € ee CO CT Re re he JL 


@ Le en Ga 0 Fe Où Fe PO Lo NU UE 


Affectation des variables 
Somme empruntée 

Taux annuel en % 

Taux mensuel décimal 

Numéro de l'option 

Nombre de mois choisis 

Nombre de mois utilisé par les bou- 
cles 

Nombre de mois calculés 

Somme restant due 

Mensualité 

Boucle FOR... NEXT 

Boucle FOR... NEXT 
Remboursement en principal 
Intérêt total 

Paramètre pondérant l'influence de 


la somme restant due sur la mensua- 
lité 


prêt et le taux de l’emprunt en pourcen- 
tage, puis, soit le montant d’une men- 
sualité, soit la durée en mois. 


Un message d’attente fait patienter 
l'utilisateur car le calcul est parfois long, 
surtout s’il s’agit de prêts portant sur 
quinze ou vingt ans ; l’affichage du 
résultat est précédé d’une sonnerie indi- 
quant que le calcul est terminé. La 
réponse (le versement mensuel ou le 
nombre de mois) apparaît à l’écran, 
ainsi que le coût total de l’opération. 


Tous les renseignements utiles sont 
donnés, mis à part les éléments du rem- 
boursement anticipé. Pour les connafî- 
tre, l'imprimante devra avoir été bran- 
chée. On obtient alors une copie de 
l’écran tel qu’il était précédemment, 
ainsi que le tableau donnant, mois par 
mois, les remboursements effectués, le 
solde dû, les intérêts de chaque verse- 
ment et le total des intérêts payés. Il est 
ainsi facile de calculer, à n’importe quel 
moment, le montant des six mois d’in- 
térêt à venir et les 3 % de la somme qui 
reste due, afin de savoir si, oui ou non, 
il est intéressant de faire un rembourse- 
ment anticipé. 


Les détails 


dans un tableau 


Prenons un exemple : pour un em- 
prunt de 100 000 francs, remboursable 
sur 24 mois avec un taux de 5,31 %, le 
programme indiquera un versement 
mensuel de 4 401 francs (coût total : 
5 625 francs). En partant d’une mensua- 
lité de 4 500 francs, on retrouvera 24 
mois et 5 625 francs ; dans ce cas, la 
mensualité sera automatiquement ajus- 
tée à 4 401 francs. Avec une somme très 
différente, il serait possible de trouver 
un résultat exact mais avec un nombre 
de mois différent. L’impression du 
tableau donnant le détail mensuel per- 
mettrait de juger de l'opportunité d’un 
remboursement anticipé. Dans cet 
exemple et en choisissant le quatorzième 
mois comme date de rachat, il coûterait 
859 francs (la somme des intérêts des six 
mois suivants, de 14 à 19) ou 1 288,74 
francs (3 % du capital restant dû). Le 
montant le plus faible étant retenu dans 
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tous les cas, la pénalisation se monte- 
rait donc à 859 francs. 


Tel qu’il est conçu, ce programme ne 
tourne que si le produit du nombre de 
mois par le taux d’intérêt ne dépasse par 
3 500. Ceci permet de faire les calculs 
dans le minimum de temps possible tout 
en couvrant la quasi-totalité des cas, le 
taux d’intérêt maximum pratiqué 
actuellement étant de 18,25 % (3 500 
divisé par 18,25 % donne 192 mois, 
c’est-à-dire 16 ans). 


D'un Basic à l'autre 


Pour l'essentiel, ce sont les instructions 
d’affichage PRINT AT et PRINT TAB 
qui risquent de devoir être modifiées sur 
d’autres machines que le Spectrum. 


A vérifier aussi la syntaxe de la fonc- 
tion ABS (ligne 135) : l'argument doit-il 
ou non être placé entre parenthèses ? 

Pour le reste, l’adaptation va de soi. 
A noter que les noms de variables utili- 
sent deux caractères significatifs. 


Pour effectuer des calculs avec un 
taux d’intérêt plus élevé en choisissant 
une période de remboursement plus lon- 
gue, il suffira de modifier la ligne 108 
en remplaçant LET u =3 par LET u =7. 
Le programme tournera tout aussi bien 
pour les valeurs plus courantes mais cela 
se fera au détriment des temps d’exé- 
cution. 


Lucien STREBLER 


PROGRAMME SUR APPLE . 


UN TRACEUR DE COURBES 


N traceur de courbes 
parait être un 
programme peu 
original, 
connaissant les Quand j'ai conçu la première 
possibilités de De ee pone 


graphiques de 
d'Apple IL. 
Mais il va nous 
aider à mieux 
comprendre 
l'organisation 
d'un programme 
Basic et son 
implantation en 
mémoire, Et surtout, 
il s'automodifie, 
ce qui le rend 
particulièrement 
_ intéressant. 
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de la manière suivante : après l’affi- 
chage du titre, il était arrêté par une ins- 
truction STOP à la ligne 100. Il deman- 
dait alors à l’utilisateur d’entrer, en 
mode direct, la ligne 100 suivie de la 
définition de la fonction, puis de repren- 
dre l’exécution à partir de cette ligne 
100. Il fallait donc faire, par exemple : 
100 DEF FNA(X) = EXP(SIN(X)) 
RUN 100 


Deux ans 


plus tard... 


Le programme s’exécutait alors de la 
même manière que la version proposée 
ici. Après l’avoir laissé dormir au fond 
d’une disquette pendant deux longues 
années, j’ai eu envie de le reprendre. J’ai 
voulu alors supprimer les manipulations 
décrites ci-dessus et saisir la fonction 


dans le corps même du programme. 
Ceci impliquait donc que le programme 
s’automodifie. Restait à découvrir com- 
ment y arriver. 


Au départ, il me manquait deux 
informations que je pouvais trouver 
dans la documentation : 

e l’organisation du texte d’un pro- 
gramme par l’Apple ; 

. le codage des mots clés par l’interpré- 
teur Applesoft. 


En ce qui concerne le premier point, 
si LOMEM (adresse basse de la 
mémoire) est fixée à sa valeur par 
défaut, l’implantation d’un programme 
Applesoft (attention, ceci n’est pas vrai 
pour l’INTEGER) commence à 
l'adresse 2049 ($801). Chaque ligne est 
alors codée comme suit : 

° deux octets formant l’adresse du 
début de la ligne suivante, codés dans 
le format 6502 (bas-haut) ; 

< deux octets formant le numéro de la 
ligne courante toujours dans le même 
format ; 

e la ligne d’instructions Basic est elle- 
même codée, les mots clés l’étant sur un 
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octet (par exemple, END est codé par 
$80), les autres caractères l’étant de 
façon normale, c’est-à-dire avec le code 
ASCII en hexadécimal ; 

< enfin, un octet 00 signale la fin de 
ligne (de la même façon, un double octet 
nul, 00 00, signale la fin de la zone 
programme). 


Avant que le programme ne modifie 
la ligne 5, voyons comment elle se pré- 
sente (voir sa représentation, ci- 
dessous). 


3A est le code des deux-points (:). Ils 
occupent donc toutes les cases mémoire 
de $820 à $852. Pour que le programme 
s’automodifie, il faut qu’il décrive à 
l'emplacement correct (aux adresses où 
le texte de la ligne est codé) ce qu’il veut 
y mettre. Encore faut-il savoir quoi y 
mettre. Soit pour le texte « normal » 
(les noms de variables et les valeurs 
numériques), les codes ASCII de tous 
les caractères, mais aussi les codes des 
mots clés de l’Applesoft. 


Notons tout d’abord que tous les 
mots clés n’interviennent pas dans la 
définition d’une fonction. (Pour 
l’analyse du programme, voir l’encadré 
page suivante). 


Comment se 


servir du traceur 


Il reste à voir comment se servir de 
ce traceur de courbes. Après l’affichage 
du titre, le programme demande la fonc- 
tion à tracer. Entrez-la en respectant la 
syntaxe Basic. Donnez ensuite les bor- 
nes inférieures et supérieures suivant X 
et Y. Enfin, entrez le pas de trace, c’est- 
à-dire le pas suivant X pour le calcul des 
points. 


La définition d’une fenêtre vous per- 
met d’obtenir un agrandissement d’une 
portion de la courbe, fenêtre que vous 
définirez avec une manette de jeux en 
choisissant deux coins opposés d’un 
rectangle. 


Il est possible d'améliorer ce pro- 
gramme en permettant par exemple la 
recopie d’écran graphique. 


: Gérald ANFOSSI 
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Traceur de courbes 
Programme pour Apple II 
Auteur Gérald Anfossi 

Copyright LIST et l’auteur 


1 Gosus 2U00 222 Q = PEEK ( = 16384): POKE 
é SUvsuu 1900 16368,0: IF Q = 27 THEN 2090 
$S DEF FN ACX) = Ù 

23U ONERR GOTO 28U 
240 À = CZ - BXx) * IX: = 159 + € 
109 DY — Ft ACZ)D) * IY 
50 ":" APRES LE "=" 250 1F A < OÜ OR A > 279 OR 3 < D 
OR 5 > 159 THEN 275 
151 # 260 HPLOT A,8 
£ RIEN MODIFIER AVAGT 100 275 HOME : VTAY 23: PRINT “X="Z; 
: HTAD 20: PRINT "FCXD=" FN 
A(Z) 
112 HTAu 4: VTAU 12: PRINT MENTR 280 POKE 216,0: NEXT : GOTO 300 
EZ VOTRE FONCTION": PRINT 309 POKE 216,0: POKE 34,0: HOME 
120 VTAD 16: HTAD 4: CALL - 868 : VTAB 21: LUVERSE : FOR I = 
1 TO 49: PRINT ":";2 NEXT : 
130 iAPUT "MIN X>>";uX NORMAL ?: VTAS 22: HTAS 17: 
135 VTAS 16: HTAS 2Ù PRINT "FENETR 
&U  AiPUT "HAX X>>";HX E": INVERSE : FOR I = 1 TO #4 
161 1F üX > = HX THE 120 O: PRINT "s"zs NEXT : POKE 3 
145 VTAS 13: UTAG 4: CALL - 8638 &,2è 
310 GOSUS SUUU 
159 INPUT MHIN >>"; UY 32U RX = PI:RY = P2 
155 HTAS 2U: VTAS 12 325 DRAY 1 AT RX,RY 
160 INPUT MHAX Y>>"SHY 326 FOR 1 = 1 TO 500: HEXT 
151 IF üY > = HY THEW 145 33) GOSUu 5U0O0U 
165 VTAL 20: TAB 4: CALL - 8638 359 CX = P1:CY = P2 
355 DRAW 1 AT CX,CY 
170 INPUT "DONNEZ LE PAS SUIVANT 359 HCOLOR= 3 
X >'";PAS 38U IF CX > RX THE X2 = RX:X1 = 
172$ IF PAS < = 9 THEN 165 cx: GOTO 40Ù 
160 1X = 279 / CHX = UXD:IY = 159 390 X2 = CX:X1 = RX 
J OCUY = üY) &UO IF CY > RY THEN Y1 = CY:Y2 = 
190 HGR : HCOLOR= 3 RY: GOTO 420 
191 HOIE +: INVERSE : VTAB 20:A5 = ne ee RY:Y2 = CY 
u ee À ÉTAT À Ï 
ie A pessin DE LA FENETRE 
PRESSEZ <ESC> POUR TERHIHER &2U  HPLOT X1,Y1 TO X1,Y2: HPLOT 
s "a VAS ès GosUL 19100 x1,Y2 TO X2,Y2: HPLOT X2,Y2 TO 
HORNAL 3 POKE 34,22 X2,Y1: UPLOT X2,Y1 TO X1,Y1 
195 RE #21 SY = CSY + (159 - Y1) / IYD:H 
PLACEMENT DES AXES Y = Guy + (159 - Y2) / IV) 
&3U HX = üX + X1 / ILX:5X = 3X + X 
200 àiF HX * üX < = DO TUEN  HPLOT 2? IX 
= JX # iX,0 TO — BX * 1X,1 &4D HOUE : VTAS 21: HTAD 4: GOTO 
59 170 
210 àiF HY * OY < = Ù THE HPLOT 1U0D RE 
O,HY x IY TO 279,HY * IY CREE LA FONCTION 
219 àEil | : 
x 1129 HTAU 4: VTAU 12: PRINT "ERT 
TRACE. ÉA: FOUETEON REZ VOTRE FONCTIOW": PRINT 
220 FOR Z = EX TO HX STEP PAS , L A . 
"221 IF PEEK C = 16287) > 127 OR 1150 HTAS 43 INPUT "DEF FNACXD= 
PEEK C - 16286) > 127 TUEN ;AS 
Z = HX: FOR T = 1 TO 500: NEXT 1140 HEX3 = "620:" 
: GOTO 390 115Ù FOR L = 1 TO LE (A5) 


Représentation de la ligne 5 avant modification 


0814:00 [53 08] 05 $853 adresse ligne 100, ligne 5 
0818:00 B8 C2 41 28 58 29 DO B8=DEF :C2=FN ;41=A ;28=( ;29=) 
0820:3A 3A 3A 3A 3A 3A 3A 3A 58=X ; D0O=“=?" 

0828:3A 3A 3A 3A 3A 3A 3A 3A 
0830:3A 3A 3A 3A 3A 3A 3A 3A 


3A =": 


0838:3A 3A 3A 3A 3A 3A 3A 3A 
0840:3A 3A 3A 3A 3A 3A 3A 3A 
0848:3A 3A 3A 3A 3A 3A 3A 3A 
0850:3A 3A 00 00 = pointeur de fin de ligne 
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1150 
1170 
11oÙ 
119Ù 
1195 
1euu 
1210 
1e 


1500 
1310 


1999 
eu) 


2y)01 
evy5 
2010 


éyeu 


eusvU 


2040 


2U45 


5040 


10000 


10001 


1 TO 61 
CAS,L, LEN 
> Eau5(H,1) 


FOR 4H = 
LF  iiaivs 
»1)) < 
y 
HEAS = ÿiCX5 + EQUS(H,2) + 
(32) 
L'æ L + 


CEQUS CH 
THEN 12 
CHRS 


LEN CEQUS(U,12) = 1 
H = 61 

HEXT 
FE 


HEXS + " 1] 
29100 


D9C66" 
GOSUU 
RE 

VA GIULIFLER LA LIGNE 5 


RETURH 
RE; 
HIOTS-CLES & 


LEURS COVES 


50SUS3 1000 

Dit Eau5(61,2) 

DATA. #00, COR CAL OU", 
CC,AtD,CD,OR,CE,>,CF,=,LU,<, 
v1,56u,be,ifiT,C3,AUS,L4,SOR, 
bA,Riu,bu,LOG,DbC,EXP,LU,COS, 
DE,SIN,DLF,TAN,EC,ATH,E1,(,28 
opposer" "yen 

FOR 1 = 1 TO 25: 
1,1),EQU5C1,2): 

RE 

CHIFFRES 


REAY EQUS( 
NEXT i 


ÿ LEURS CODES 


FOR,I = O TO 9:EQUSCI + 26, 
1) =  STRS C1):EQUSCI + 26,2 
) = STRS (3U + 1): NEXT ! 

DATA 41,42,43,44,45,46,47,4 
5,49,4A,8L,4C,4D,4E,4F,50,51 
29275550, 55,50,57/58,59,5û 


= 1 TO 26:EQUS(35 + I 
712 = CARS C6k + 1): REA E 
QUS(35 + 1,2): MEXT I 
POKE 232,192: POKE 233,3: FOR 
I = Y6U TO 970: REA Z: POKE 
1,2: HNEXT I: DATA 1,0,4,0,54 
»196,111,52,86,53,Ù 
SCALE= 1: ROT= O0 
RETURN 
REH 
LECTURE LE LA FENETRE 
PT = PDL (D) «x (279 / 255): 
P2 = PDL (1) x (159 / 255) 
VTAS 23: PRINT "X="DX + PA / 
1X;: HTAB 20: PRINT "Y="; (OY 
+ (159 = P2) / LY) 
XDRAW 1 AT P1,P2: IF 
C - 16287) < 128 AND 
- 16286) < 128 THEN 
1 AT P1,P2: GOTO 5000 
RETURH 
RE‘ 


PEEK 
PEEK € 
XDRAW 


TÎTRE 
HOWHE : 


TEXT : 


INVERSE 


10092 VT = 1U0:DU = 1:FIN = 39: GOSUS 
10015 
19005 VT = 1:D8 = 8:FIN = 23: GOSUS 
10015 
10094 VT = 23:00 = 1:FIN = 39: GOSUG 
10015 
19019 GOTO 19025 
10015 VTAS VT: HTAS DB 
10029 FOR I = O TO Flil: PRINT " 
“y: NEXT I 
10021 RETURN 
10025 D5 = 1:FIN = 10:71 = 3:T2 = 
31: GOSUS3 10030 
19027 NORMAL : GOTO 10049 
10030 FOR 1 = Du TO Fin: VTAUW 1: 
HTAS TA: PRINT " "ss: HTAU T 
2: PRINT “ "2 HEXT 
10035 RETURN 
1JU40 VTAB 2:AS$ = “TRACEUR DE CO 
URSE": GOSUS 10110 
TUUSU AS = "PAR G. ANFOSSI": GOSU3 
19100 
1JU6J AS = "(C) LIST ET L'AUTEUR" 
: GOSUS 10100 
19070 RETURN 
19190 PRINT : HTAË& 20 = LEN CAS 
) / 2: PRINT AS: RETURH 
2U0UJ REN 
SORTIE DU TRACEUR ? 
20010 TEXT : HOME 
20020 PRINT “VOULEZ-VOUS :" 
20030 VTAS 19: PRINT "1JUNE AUTR 
E FONCTION": VTAB 15: PRINT 
“"2)TERMIUER" 
20040 HTAS 1: VTAB 22: PRINT "EH 
TREZ VOTRE CHOIX CALL = 
868: GET 5$ 
20050 1F VAL CSS) < 1 OR VAL € 
Si) > 2 THEN 20040 
20U6U IF VAL (S$) = 2 THEN END 
20070 HEXS = "B20:": FOR 1 = 1 TO 
SU:HEXS = HEXS + "SA "2: HEXT 
HEXS = HEXS + "N b9C6G" 
20089 GOSUU 20100: RUN 
2UU90 RE‘ 
DODIFIE LA LIGNE 5 
20100 FOR i = 1 TO LEN CHEX$) 
20110 POKE 511 + i, ASC Ç HIDS € 
HEXS$,1,1)) + 128 
20120 HEXT 
20130 POKE 72,0: CALL = 144 
2U140 RETURN 
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L'analyse du programme 


Les lignes 120 à 440 forment le corps 
du programme : le traceur de courbes. La 
ligne 5 est celle qui sera modifiée. Au 
départ, elle contient l’amorce d’une défi- 
nition de fonction, le signe égal (=) étant 
suivi de cinquante signes deux-points (:) 
qui réservent la place de la fonction. 

De la ligne 2005 à la ligne 2050, on 
range dans un tableau EQUS les mots clés 
et leurs codes. Ils serviront plus tard à 
l’analyse de la fonction et au codage de 
la nouvelle ligne. Dans ce tableau, on 
range aussi tous les chiffres et les lettres 
(ainsi que leurs codes) qui peuvent inter- 
venir dans la définition de la fonction. 
Cette dernière est saisie par INPUT de 
la ligne 1130. 

On construit alors une chaîne HEX$ 
équivalente à la suite de caractères que 
l’on entrerait à partir du moniteur, en 
mode immédiat, pour écrire la définition 
de la fonction en se substituant à l’inter- 
préteur Applesoft (lignes 1140 à 1220). 
La chaîne HEX$ commence par « 820: » 
car $820 est l'adresse qui suit le signe égal 
dans la ligne 5. Elle se termine par l’ins- 
truction D9C6G qui force un retour au 
Basic (ligne 1220). 

Les lignes 20100 à 20120 forment une 
boucle qui écrit notre chaîne hexadéci- 
male dans le buffer clavier (adresse $200, 
soit 512 en décimal). Le CALL — 144 
entraîne la prise en compte de ce qui se 
trouve dans le buffer, et notre ligne 5 
vient d’être modifiée. 
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ONTRAIREMENT à beaucoup d'autres 


langages, Logo ne fait aucune distinction 
entre programmes et données. C'est pourquoi une 
procédure peut devenir un objet, peut être 
modifiée ou même créée par une autre procédure. 
Nous décrirons aujourd'hui un ensemble de 
procédures destinées à en créer d’autres. 


Logo, comme tous les « langages 

de liste » dérivés de Lisp (List Pro- 
cessing), permet des applications de type 
intelligence artificielle. Contrairement 
aux langages de programmation clas- 
siques, comme Basic ou Pascal par 
exemple, Logo ne fait pas de distinction 
entre programmes et données. L’astuce 
consiste simplement à présenter les pro- 
cédures sous forme de listes. 


La primitive POUR permet de défi- 
nir des procédures classiques dont la 
structure peut être imitée grâce au 
GOSUB du Basic, avec quelques diffi- 
cultés pour les variables locales. En 
revanche, la primitive DEFINIS permet 
de définir une procédure comme une 
liste de listes. Ainsi, pour calculer un 
nombre N à la puissance P, on peut s’y 
prendre d’au moins deux manières selon 
que l’on utilise les primitives POUR ou 
DEFINIS. 

POUR PUISSANCE :N :P :R 
SI :P = 0 [RETOURNE :R] 
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RETOURNE PUISSANCE :N :P —1 :R#:N 
FIN 


Ou bien, seconde façon de faire : 
DEFINIS ‘“PUISSANCE [IN P RJISI :P =0 


[RETOURNE :RJ[RETOURNE 
PUISSANCE :N :P—1 :R« :N]] 


On remarque donc, avec DEFINIS, 
que : 
e la première liste est celle des paramè- 
tres N P R dans laquelle le caractère 
deux-points (:) a disparu ; 
e chaque instruction de la procédure est 
une liste ; 
e le mot FIN n’apparaît plus. 


La liste des paramètres est obliga- 
toire. S’il n’y a aucun paramètre, elle 
doit apparaître tout de même, mais 
vide. En voici un exemple : DEFINIS 
“TRIANGLE [[HREPETE 3 [AV 50 
DR 120]]]. 


La primitive TEXTE permet de trans- 


former une procédure écrite avec POUR 
en une liste. Il n’est donc pas indispen- 


Bonjour, 
Madame 
DONNÉE . 


Toujours 
ussi distrait, 


sable de choisir DEFINIS pour créer des 
procédures modifiables par procédure. 
De plus, TEXTE est particulièrement 
utile pour simuler un mode « pas à 
pas » que nous verrons une autre fois. 


Faire évoluer une procédure suppose 
que l’on en connaisse le nom. Les nou- 
velles versions de Logo pour les micro- 
processeurs 16 bits contournent cette 
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difficulté grâce à la primitive LISTE- 
PROC qui retourne la liste de toutes les 
procédures présentes dans l’espace de 
travail ; LISTEPROC permet donc de 
travailler sur ces dernières sans connaî- 
tre leur nom. 


A elles seules, les trois primitives 
DEFINIS, TEXTE et LISTEPROC 
ouvrent Logo à la plupart des applica- 
tons de l'intelligence artificielle. 


Un troisième 


mode pour Logo 


Logo travaille habituellement en deux 
modes : soit le mode direct (appelé par- 
fois « pilotage en graphique »), soit le 
mode procédural ou de programmation. 


En mode direct, les instructions sont 
immédiatement exécutées au coup par 
coup. C’est le mode employé pour 
explorer les divers micromondes. Ce 
mode permet bien des découvertes, mais 
il présente l’inconvénient sérieux de ne 
laisser aucune trace des différents essais. 


En mode programmation au con- 
traire, les instructions sont conservées, 
mais l'exécution n’est pas immédiate, 
elle est différée. Le résultat n’est visible 
que lorsque la procédure est terminée. 


Pour réunir les avantages de ces deux 
modes, nous allons en définir un troi- 
sième dans lequel les instructions seront 
non seulement exécutées en mode direct, 
mais aussi mémorisées pour être ensuite 
incluses dans une procédure à laquelle 
on donnera un nom. 


Pour parvenir à ce résultat, il nous 
faut : | 
1 - Entrer les instructions, les vérifier et 
les exécuter. 

2 - Conserver les instructions. 

3 - Pouvoir rectifier un essai en annu- 
lant l'instruction précédente. 

4 - Nommer la procédure nouvellement 
créée en vérifiant qu’elle n’existe pas 
déjà. 

Pour travailler dans ce mode, que 
nous appellerons mode d’apprentissage, 
nous créerons trois mots. Le mot 
APPRENDS, d’abord, initialise le 
mode. Le mot FIN termine le mode. Le 
mot GOMME fait oublier la dernière 
instruction exécutée. 


Première tâche : entrer les instruc- 
tions et les exécuter. 
POUR ENTRER 
DONNE “INST LISLISTE 
SL :INST = [FINJISTOP] 
SI :INST = [GOMMEJIGOMME] 
[EXECUTE :L DONNE 
“PROC PH :PROC LISTE :L] 
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Rappel de la syntaxe LOGO 


OGO est un langage procédural. Les 

procédures disponibles à linitialisa- 

tion sont appelées primitives. Celles que 

vous créez sont nommées procédures. 

Une procédure commence par le mot 
POUR et se termine par FIN: 


En Logo, un nombre est écrit tel quel, 
éventuellement précédé d’un signe. Un 
mot est toujours précédé de guillemets 
(on ne referme pas les guillemets à la fin 
du mot). Une liste est encadrée de cro- 
chets carrés []. Les noms de variables, qui 
ne sont pas liés à leur contenu, sont des 
mots. Enfin, le contenu de la variable ‘A. 
est : A. 


ENTRER 
FIN 


La variable ‘PROC, globale, a été 
initialisée à {[]]}, et elle accumule les ins- 
tructions retenues après exécution. Pour 
vérifier les instructions, nous définirons 
une procédure VERIFIER chargée 
« d’attraper » les erreurs : 

POUR VERIFIER 

ATTRAPE ‘ERREUR [SUITE] 

EC [INSTRUCTION NON VALIDE] 
VE 

EXECL :PROC 

VERIFIER 

FIN 


Si une erreur intervient, la procédure 
VERIFIER s’exécute. Le marqueur 
d’erreur est alors à VRAI et la procé- 
dure SUITE est ignorée. On affiche le 
message INSTRUCTION NON 
VALIDE ; puis VE, EXECL :PROC 
sont exécutés. Le marqueur d’erreur est 
automatiquement remis à FAUX. 
VERIFIER étant récursif, la réexécu- 
tion de la séquence ATTRAPE 
“ERREUR [SUITE] entraînera l’appel 
de la procédure SUITE, qui est en fait 
la procédure principale. Quant à la pro- 
cédure EXECL, elle a été créée pour 
exécuter une liste de listes car dans cer- 
taines versions de Logo, EXECUTE 
n’exécute qu’une liste simple. Écrivons 
les procédures SUITE et EXECL : 
POUR SUITE 
ENTRER 
FINIR 
FIN 
POUR EXECL :L 
SI :L=1[] [STOP] 

EXECUTE PREMIER :L 
EXECL SP :L 
FIN 


Il ne nous reste plus qu’à écrire la pro- 
cédure FINIR et la procédure GOMME, 
puis à les enchaîner au moyen de la pro- 
cédure APPRENDS. 

POUR FINIR 
EC [VOULEZ-VOUS GARDER VOTRE 

TRAVAIL ?] 

EC [SI OUI, TAPEZ SON NOM] 
DONNE “N LISLISTE 
SI :N=[I[RENVOIE ‘NIVEAUSUP] 


RE 


SI DEFINIP PREMIER :N [EC[CE NOM 
EXISTE DEJA] FINIR] 

DEFINIS PREMIER :N :PROC 

(EC PREMIER :N [EST DEFINIE]) 

RENVOIE ‘NIVEAUSUP 

FIN 


Une remarque sur cette dernière pro- 
cédure. Nous aurions pu écrire, pour 
simplifier l'expression, DONNE ‘N 
PREMIER LISLISTE. Cependant, cer- 
tains Logo signalent une erreur lorsque 
la liste spécifiée est vide. Or nous vou- 
lons qu’elle soit effectivement vide lors- 
que l’utilisateur ne veut pas conserver 
son travail. RENVOIE ‘‘NIVEAUSUP 
permet de revenir en mode direct sans 
passer par tous les niveaux de récursion. 
POUR GOMME 
EC PH [J'ANNULE L’INSTRUCTION :] 

DERNIER :PROC 
DONNE ‘PROC SD :PROC 
VE 
EXEC :PROC 
FIN 


Et enfin 
POUR APPRENDS 
VE 
DONNE ‘‘PROC [{[]] 
VERIFIER 
FIN 


Utile pour 


les débutants 


L'écriture de ces procédures nous per- 
met de travailler maintenant selon le 
troisième mode, c’est-à-dire d’exécuter 
des instructions en mode direct et, au vu 
des résultats, de conserver ou non ces 
instructions pour les mémoriser à la fin 
dans une procédure. 


Si vous possédez un Logo qui tourne 
sur un matériel Thomson, ce n’est pas 
de chance. Ne vous faites aucune illu- 
sion : les concepteurs de ce langage ont 
simplement oublié (peut-être faute de 
place ?) la primitive DEFINIS. Quel 
dommage ! Ces Logo, dans leur état 
actuel, ne permettent pas de définir de 
procédures du style « intelligence arti- 
ficielle ». Pour les autres, ATTRAPE 
se traduit par ENERREUR, DONNE 
par CREE, RELIE ou FIXE, REN- 
VOIE “NIVEAUSUP par LOGO et 
DEFINIP par DEFINI?. 


En conclusion, le mode APPRENDS 
est un mode très utile, même et surtout 
pour les débutants. Un autre mode utile 
est le PAS A PAS qui visualise l’exécu- 
tion d’une procédure, instruction par 
instruction. Malheureusement, il n’est 
pas implanté sur tous les Logo. Nous 
verrons comment remédier à ce défaut 
dans un prochain article. 


Robert DAGUESSE 
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LIST À TESTÉ 


2EPSON PX:8 est un ordinateur séduisant : vrai: °°mfieuration utilisée. En version de 


: ï sn : base, sans extension mémoire, on aura 
ment portatif, doté de logiciels puissants 1474 octets libres (14,4 Ko), ce qui est 


è honnête. On pourra programmer dans 
(dont le fameux traitement de texte Wordstar, un cina zones “différentes, indépendantes 
tableur et un agenda), d’une mémoire permanente “"""" 


et d'un afficheur à cristaux liquides de 8 lignes de 


, , R s Equipé pour . 
80 caractères, il possède tout ce qu'il faut pour les sauvegardes 
travailler, Mais, qu’on ne s’y trompe pas, le PX-8 
est aussi doté d’un langage Basic assez À 
performant avec lequel on pourra facilement mémoire ainsi que tous ses programmes. 
Et ceci tant qu'aucune autre applica- 
programm er, tion, par exemple Wordstar, n’aura été 


Le Basic du PX-8 se présente sous 

la forme d’une mémoire morte 
(ROM) enfichable au-dessous de l’ap- 
pareil. Cette particularité permet de dis- 
poser de tous les avantages d’un Basic 
résident (disponibilité, rapidité) mais 
amovible à volonté. Le PX-8 possède 
deux connecteurs pour ROM : on devra 
donc choisir entre les programmes d’ap- 
plication, ceux qui resteront en perma- 
nence à demeure dans l’appareil. Quant 
au support classique de ces ROM, il 
interdit leur destruction accidentelle par 
pliage des pattes du circuit. On les con- 
nectera donc en confiance. 


Pour utiliser le langage Basic, il faut 
en commander le chargement en 
mémoire grâce au menu général de pré- 
sentation du PX-8. Son origine s’affi- 
che immédiatement : Epson Basic ver- 
sion 1.0. Il s’agit en fait d’un bon vieux 
Basic de Microsoft auquel Epson a 3 . + 
apporté quelques adaptations. On dis- Un magnétophone a microcassettes 
pose d’un espace mémoire programma- est intégré et entièrement commandable 
ble de taille variable en fonction de la depuis le Basic du PX-8. 
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lancée. On pourra ainsi, en fonction de 
l'emploi de l’ordinateur, conserver en 
mémoire les programmes, ou bien les 
sauvegarder. Le PX-8 dispose de diffé- 
rentes possibilités de sauvegarde : sur 
disquette (à condition de disposer du 
lecteur), sur microcassette (le magnéto- 
phone est intégré à l’ordinateur) ou, 
enfin, sur disque de mémoire virtuelle. 


Car le système d’exploitation de l’Ep- 
son n’est rien moins que le célèbre (et 
antique) CP/M, et celui-ci peut gérer la 
mémoire centrale comme s’il s’agissait 
d’une petite disquette. On y conservera 
donc en permanence, par exemple, tous 
les programmes Basic d’usage fréquent. 


Le moins qu’on puisse dire de ce 
Basic, c’est qu’il possède abondance de 
fonctions. La liste ci-contre n’en recense 
pas moins de 157. Aucun domaine n’est 
oublié : mathématiques, traitement de 
caractères, programmation, etc. 


Un très bon 


éditeur 


Au moins aussi important que le lan- 
gage lui-même est l’éditeur de program- 
mes. Il s’agit pratiquement de l’art et la 
manière d’écrire, vérifier et corriger les 
lignes du programme Basic. Si l’écran 
du PX-8 est seulement haut de huit 
lignes, on dispose cependant d’un écran 
virtuel de 24 lignes de 80 caractères affi- 
chés sur lequel on se déplacera à l’aide 
de touches fléchées. Sous le contrôle du 
Basic, ce sont même deux écrans virtuels 
que l’on pourra utiliser indépendam- 
ment l’un de l’autre. 


La frappe des programmes Basic s’ef- 
fectue facilement car on dispose d’une 
fonction AUTO de numérotation auto- 
matique des lignes. Toute ligne tapée, 
et conclue par RETURN, est introduite 
en mémoire. On pourra les corriger à 
volonté, soit en remontant l’écran si la 
ligne s’y trouve encore affichée, soit en 
utilisant la commande EDIT. Une fois 
la ligne affichée, il n’est pas nécessaire 
de la retaper entièrement pour effectuer 
une correction. Comme s’il s’agissait 
d’un simple texte écrit, il suffit de posi- 
tionner le curseur au bon endroit, de 
taper INS pour insérer des caractères, 
DEL pour en détruire ou toute autre 
touche pour remplacer des caractères 
par de nouveaux, puis de terminer par 
RETURN. Chaque ligne Basic pourra 
contenir jusqu’à 255 caractères. 


Le contrôle des erreurs de frappe s’ef- 
fectue lors de la première tentative 
d’exécution : une erreur s’affiche et la 
ligne fautive est automatiquement édi- 
tée, le curseur clignotant sur l’instruc- 
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tion erronée, prêt à recevoir la correc- 
tion. La fonction DELETE détruit en 
bloc un nombre de lignes déterminé et 
RENUM permet une renumérotation 
automatique des numéros de ligne. 


Un très bon éditeur, donc. Et des tou- 
ches de contrôle augmentent encore sa 
puissance, par exemple, CTRL Z pour 
détruire tous les caractères d’une ligne 
à partir de la position du curseur, 
CTRL-— et CTRL+ pour passer d’un 


écran virtuel à l’autre, etc. 


Sur le plan de la rapidité de traite- 
ment, l’Epson n’est visiblement pas doté 
d’un turbo : 26 secondes pour compter 
bêtement jusqu’à 10000 (par une bou- 
cle vide FOR... NEXT), c’est honora- 
ble, mais pas exceptionnel. Ceci noté, 
n’oublions pas que la permanence de la 
mémoire est basée sur une technologie 
particulière de construction des circuits 
(CMOS) dont les temps d’accès sont 


hr 


AUTO START 
BEEP 


CALL 
CDBL 
CHAIN 
CHRS 
CINT 
CLEAR 
CLOSE 
CLS 
COMMON 
CONT 
COPY 
COS 
CSNG 
CSRLIN 
CVI 
CVS 
CVD 


DATA 
DATES 
DAY 
DEF FN 
DEF INT 
DEF SNG 
DEF DBL 
DEF STR 
DEF USR 
DELETE 
DIM 
DSKF 


EDIT 
END 
EOF 
ERASE 
ERL 
ERR 
ERROR 
EXP 


FIELD 

FILES 

FIX 

FOR STEP NEXT 
FRE 


GET 
GOSUB...RETURN 


HEX$ 


IF... THEN...ELSE 
INKEY$ 

INP 

INPUT 

INPUT # 

INPUT$ 

INSTR 

INT 


KEY 
KEY LIST 
KILL 


LEFT$ 

LEN 

LET 

LINE 

LINE INPUT 
LINE INPUT# 
LIST 

LLIST 

LOAD 

LOC 
LOCATE 

LOF 

LOG 

LOGIN 

LPOS 
LPRINT 
LPRINT USING 
LSET 


MENU 
MERGE 
MID$ 
MKIS$ 
MKSS$ 
MKDS$ 
MOUNT 


NAME 
NEW 


OCT$ 

ON ERROR GOTO 
ON...GOSUB 
ON...GOTO 

OPEN 

OPTION BASE 
OPTION COUNTRY 
OPTION CURRENCY 
OUT 


PCOPY 
PEEK 
POINT 


POKE 

POS 

POWER 
PRESET 

PRINT 

PRINT USING 
PRINT# 
PRINT# USING 
PSET 

PUT 


RANDOMIZE 
READ 
REM 
REMOVE 
RENUM 
RESET 
RESTORE 
RESUME 
RIGHTS 
RND 
RSET 
RUN 


SAVE 
SCREEN 
SGN 

SIN 
SOUND 
SPACES 
SPC 

SQR 

STAT 
STOP 
STOP KEY 
STRS$ 
STRINGS 
SWAP 
SYSTEM 


TAB 
TAN 
TAPCNT 
TIMES 
TITLE 
TRON 
TROFF 


USR 


VAL 
VARPTR 


WAIT 
WHILE...WEND 
WIDTH 

WIND 

WRITE 
WRITE# 
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souvent un peu plus lents. Ainsi, dans 
sa catégorie, le PX-8 est un ordinateur 
des plus rapides. 


La capacité de travail d’un Basic se 
mesure aussi à la précision de ses cal- 
culs. Le PX-8 travaillera aussi bien en 
décimal (base 10), qu’en octal (base 8) 
ou en hexadécimal (base 16). Les cons- 
tantes numériques sont de trois types : 
les entiers (de +32767 à — 32768), les 
réels en notation fixe et les réels en nota- 
tion scientifique. 

Les variables disponibles sont alpha- 
bétiques (255 caractères de capacité) ou 
numériques, en entière, simple ou dou- 
ble précision. La simple précision affi- 
che six chiffres significatifs (les calculs 
étant effectués sur sept), la double pré- 
cision en affiche seize. 


Dimensions 


sans limites 


Leurs noms pourront comprendre 
jusqu’à 40 caractères alphanumériques 
différents ! Les tableaux de variables 
(ou matrices de chiffres) ne sont pas 
limités en dimensions : DIM A(3000) ou 
DIM A(1,1,1,1,1,1,1,1) sont parfaite- 
ment valides, si la taille de la mémoire 
disponible le permet, évidemment. L’or- 
dre ERASE récupérera de l’espace 
mémoire en détruisant individuellement 
certains tableaux inutiles. 


Mathématiquement parlant, le PX-8 
est très correctement fourni : fonctions 
scientifiques comme ABS, LOG, EXP, 
trigonométriques, SIN, COS, TAN, et 
ATAN, opérateurs de relations tels >, 
<, <=, etc. On définira des fonctions 
mathématiques avec DEF FN, et elles 
pourront ensuite être employées direc- 
tement, presque comme de simples ins- 
tructions Basic. 


Les manipulations des chaînes alpha- 
bétiques s’effectuent avec les fonctions 
classiques ‘‘+”” (concaténation), les 
opérateurs de relation (>, <, —,...)et 
les fonctions RIGHTS, LEFT$ et MIDS 
d’extraction de sous-chaînes (droite, 
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gauche et centrale), ASC et CHRS (con- 
versions entre codes ASCII et caractè- 
res). La fonction INSTR$ recherche 
dans une chaîne de caractères la pré- 
sence éventuelle d’une sous-chaîne pré- 
cise et LEN retourne le nombre de 
caractères d’une chaîne. 


On pourra ordonner un démarrage 
automatique d’un programme dès l’al- 
lumage du PX-8 avec AUTO START 
“C:BASICA:NOMDUPROGRAMME”’ 
+ CHR$(13) ce qui correspond au choix 
du Basic, puis du programme NOMDU- 
PROGRAMME, le tout ponctué de 
RETURN. Le langage-machine est 
accessible avec PEEK, POKE, CALL et 
DEF USR ; le microprocesseur du PX-8 
est un Z80. L’horloge interne de l’ordi- 
nateur est accessible avec TIMES 
(heure, minutes, secondes) et DATES 
(mois, jour, année). 


Le contrôle des erreurs s'effectue avec 
ERROR qui en simule une, ERL qui 
indique le numéro de la ligne en ques- 
tion et ERR qui précise le numéro de 
code de l'erreur. Avec ON ERROR 
GOTO nnn et RESUME, on program- 
mera des routines personnalisées de trai- 
tement des erreurs. 


Epson ne s’est pas contenté de repren- 
dre les traditionnelles instructions Basic. 
Sur nombre d’entre elles, des améliora- 
tions ont été apportées. La fameuse 
boucle FOR... NEXT est perfectionnée 


Fiche technique de l’Epson PX-8 


Constructeur : Epson 

Distributeur : Technology Resources 

Prix public : 11 400 FF avec Basic et CP/M ; 
12 600 F avec, en plus, Wordstar, Calc et 
Scheduler 

Processeur : Z80 

Mémoire vive : 64 Ko (après chargement du 
Basic, il reste 14,4 Ko): extension possible 
de 120 Ko 

Langage : Epson Basic 1.0 sur mémoire 
morte à enficher (fournie avec la machine) 
Variables : entières de - 32768 à 32767 ; 6 
chiffres significatifs pour la simple précision ; 
16 chiffres significatifs pour la double précision 
Précision : calculs sur 7 chiffres significatifs 


Nombre de mots clés du Basic : 157 


en admettant pour NEXT une souplesse 
de références : NEXT seul ou NEXT 
1,J,K sont corrects. Le test IF... THEN 
(si. alors) admet un ELSE (sinon). Ici, 
on trouve aussi une boucle inverse de 
FOR... NEXT : WHILE xxx (tant que 
xxx est vrai exécuter les lignes d’instruc- 
tions suivantes), terminée par un 
WEND (vérifier la condition). L'ordre 
INPUT permet l'introduction de don- 
nées dans une série de variables. Les 
cinq touches de fonction (dix en com- 
binaison avec SHIFT) situées sous l’af- 
ficheur sont programmables en Basic. 
On pourra donc y affecter, avec KEY, 
des expressions Basic souvent 
employées. 


L'écran du PX-8 peut être géré gra- 
phiquement, soit en affichant des carac- 
tères graphiques du jeu ASCII, soit en 
y dessinant point par point. LINE trace 
une ligne droite entre deux points, 
PSET allume un point, PRESET 
l’éteint, et POINT teste son état. 


Disposition remarquable, le magné- 
tophone à microcassettes intégré à l’or- 
dinateur est entièrement commandable 
avec le Basic : retour arrière, avance, 
lecture et écriture. Même le compteur de 
tours est accessible ! En définitive, cette 
cassette se comporte exactement comme 
une disquette d’accès ralenti. 


La revue détaillée de toutes les ins- 
tructions Basic du PX-8 apporterait 
nombre d’idées intéressantes d’amélio- 
rations du Basic. Bien sûr, la compati- 
bilité avec des Basic antérieurs en souf- 
fre mais lorsque, comme ici, le progrès 
est réel, vive l’incompatibilité ! 

Si seul le Basic, en raison de ses per- 
formances, intéresse l’utilisateur, l’Ep- 
son PX-8 reste sans doute cher. Mais, 
si cet utilisateur est intéressé par le trai- 
tement de texte portatif Wordstar et un 
tableur, il disposera alors en plus d’un 
Basic capable de réaliser toutes sortes 
d’applications personnelles et semi- 
professionnelles avec une grande sou- 
plesse. La conjugaison de ces outils jus- 
tifie alors le prix de 12 600 FF. 


Jean-Christophe KRUST 


MADAME DESIRE ENCORE UNE 


CHIMULUS 
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ALGORITHMIQUE 


UAND 
DN CHERCHE SES MOTS 


Dans cette première version de l’al- 
gorithme (qui n’est pas structuré) et 
comme pour les suivantes, texte est un 
tableau ou une fonction qui retourne le 
caractère du numéro indiqué dans le 
texte. De la même façon, mot est un 
tableau représentant les différents carac- 
tères du mot à rechercher. Enfin lontex 
et lonmot représentent respectivement la 
longueur du texte et celle du mot. 


À recherche d'une chaïne de caractères dans un 
texte, fonction classique pour un bon 
traitement de texte, parait simple. Pourtant, 
comme toujours en informatique, il n'existe pas 
de solution unique. Parmi les algorithmes de 
recherche de chaine dans un texte, voyons celui 
auquel chacun pense, et quelques autres... 


Mais c'est 


: une bogue ! 
C’est dans le système d’exploita- 


tion d’un ordinateur que nous 
avons découvert notre premier algo- 
rithme de recherche. Cet utilitaire a 
pour but de localiser un couple d’octets 
en mémoire centrale. L’algorithme uti- 


t<— 1; 
trouvé € faux ; 
tant que t < lontex et non trouvé faire 


Nous pouvons tout d’abord remar- 
quer que cet algorithme est faux. En 


lisé en dit long sur les programmes- début effet, si l’on recherche un couple de 
système livrés par certains fabricants si texte (t) = mot (1) caractères tel que du, rien n’est trouvé 
d'ordinateurs puisqu'il ne fonctionne nn ee séquence ddu apparaît dans la liste 
i éfini - es symboles. Voyons pourquoi : dès la 
sr bed ne  . as 15 ai du Hate d. la ee detest 
P P f q es si texte (t) = mot (2) ë à se afi I à " 
ques reçoivent tous les mois, et pour alors Incrémentée a In que ENAEAELER RENANE 
chaque machine, des fascicules d'une tToOUvÉ ee vrai soit vérifié. Comme il s agit encore d un 
centaine de pages décrivant les derniè- fin ; d, la valeur de trouvé n’est pas modi- 
res erreurs découvertes dans les tés f + | fiée et la recherche reprend au caractère 
programmes-système. Comme ce pro- fin ; | u, laissant ainsi passer la chaîne 
gramme est écrit en Assembleur, nous |Si trouvé alors t «— t-lonmot ; recherchée. 
l'avons converti en notation algorithmi- Si cet algorithme est faux, cela pro- 


que (voir encadré ci-contre). 
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D 


vient du fait qu’il est à la fois mal écrit 
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et mal paramétré. Il est par ailleurs inu- 
tilisable si l’on désire rechercher des 
chaînes d’un seul ou de plus de deux 
caractères. Nous pouvons donc le 
récrire en en conservant l’esprit, mais en 
le rendant plus général et en le 
structurant. 


t— 0; 
trouvé <— faux ; 
tant que t < lontex et non trouvé faire 
début 
m <-— 1; 
t—t+l; 


début 


fin ; 
si trouvé alors t <— t—-lonmot + 1 ; 


Comme dans la première version, 
l'erreur de cet algorithme provient du 
fait que, dans le cas où le début de la 
chaîne cherchée apparaît (mais pas sa 
fin), il faut non pas continuer l’analyse 
des caractères, mais revenir en arrière 
pour la reprendre à l’endroit où nous 
avions cru détecter la chaîne cherchée. 


Cette deuxième version étant plus 
structurée, l’algorithme devient plus 
facile à corriger. C’est ainsi que nous 
obtenons un nouvel algorithme : 


t— 0; 
trouvé <— faux ; 
tant que t < lontex et non trouvé faire 
début 
m<— ll; 


m < m + 


alors trouvé <— vrai 
sinon t <— t + 1 
fin ; 
si trouvé alors t — t + 1; 


Cet algorithme de recherche, qui vient 
assez naturellement à l’esprit, présente 
deux grands défauts. Le premier est 
qu’il n’est pas efficace, car à chaque 
échec dans la recherche il impose un 
retour en arrière presque égal à la lon- 
gueur du mot. Le second inconvénient 
apparaît si le texte n’est pas la mémoire 
centrale, et s’il est, par exemple, trans- 
mis à distance. Dans ce cas, les retours 
en arrière peuvent devenir un lourd 
handicap. 
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tant que t < lontex et m < lonmot et texte (t) = 


tant que t + m < lontex et m < lonmot et texte (t+m) = mot (m) faire 


sim > — lonmot et texte (t+m) = mot (m) 


Les améliorations à apporter à cet 
algorithme de base sont donc d’une part 
une plus grande efficacité en cas d’échec 
dans la recherche, et d’autre part des 
retours en arrière moins fréquents et 
d’une moindre ampleur. 

Ces améliorations mettent en œuvre 
une phase d’analyse préalable du mot 
à rechercher. Une meilleure connaïis- 
sance de ce mot facilite sa recherche par 
l’ordinateur. Cette analyse est en fait 
très rapide car le mot est le plus souvent 


" SS S 
JA PERDU MES MOTS 
ON Vous LES RURAIT PAS 
APPORTÉS DES Fois 


4 ? 
JE" 
mot (m) faire 


EN GA. 


assez court par rapport à la longueur du 
texte. Le résultat de l’analyse est mémo- 
risé dans un tableau qui possède autant 
d'éléments que le mot comporte de 
symboles. 

L’algorithme de Knuth, Morris et 
Pratt travaille de cette façon. Il mémo- 
rise, pour chaque élément du tableau, 
le nombre de positions à parcourir en 
arrière si un échec apparaît sur le 
symbole en question. Comme le faisait 
l'algorithme élémentaire, celui-ci fait 
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glisser le mot à rechercher sur le texte, 
en essayant de trouver une correspon- 
dance entre les deux. Si un échec appa- 
raît, c’est-à-dire si deux caractères sont 
différents, le mot est déplacé vers la 
droite non pas d’une seule position 
comme avec notre premier algorithme, 
mais d’un nombre égal à la valeur 
mémorisée dans la table. 


Reculer pour 


ne pas sauter 


Ainsi, cette table indique la valeur du 
décalage dont il faut déplacer le mot. Si 
nous considérons que les valeurs du 
tableau décalage ont été correctement 


calculées, notre algorithme est le 
suivant : 


m <— décalage (m) ; 
t—t+l; 
m <— m + 
fin ; 
sim > lonmot 
alors t <— t—-lonmot ; 
sinon mot__non__ présent ; 


Il convient de remarquer une petite 
particularité dans cet algorithme : il uti- 
lise une instruction très utile, qui était 
implicitement présente dans le langage 
Algol et qui est réapparue explicitement 
en Ada. Il s’agit du connecteur et alors. 
Cet opérateur fonctionne comme un et 
logique, avec cette différence que l’ex- 
pression suivant le et alors n’est pas éva- 
luée si la première partie est fausse. 


Cette propriété est astucieuse : si l’ex- 
pression m > 0 n’est pas vérifiée, il est 
inutile d’évaluer mot (m) < > texte (t), 
puisque de toute façon le et logique 
fournira un résultat faux. Cela permet 
une construction plus simple des pro- 
grammes. Dans le cas présent, si m était 
inférieur ou égal à zéro, l'évaluation de 
la seconde partie de la condition provo- 
querait une erreur, l’élément 0 n’exis- 
tant pas. 


Dans le même ordre d’idées, il existe 
le connecteur ou alors avec lequel la 
seconde partie de la condition n’est éva- 
luée que si la première donne un résul- 
tat faux. 


Pour mieux comprendre cet algo- 
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tant que m > Oet alors texte (t) < > mot (m) faire 


(Algorithme de Knuth, Morris et Pratt) 


rithme, il convient de voir comment il 
fonctionne. Pour cela, nous allons pren- 
dre l’exemple de la recherche du mot 
ababc. Admettons que notre texte com- 
porte la suite de symboles abababc. 


Au début de l’analyse, les quatre pre- 
miers caractères correspondent bien au 
mot que nous recherchons. Par contre, 
arrivé au cinquième, le système consi- 
dère qu’il y a échec, puisque le carac- 
tère du texte est un a mais qu’un c est 
présent dans le mot. 


Alors que l’algorithme élémentaire 
repart du second caractère du texte pour 
rechercher une nouvelle coïncidence 
avec le mot, celui-ci va tirer parti du fait 
que la suite ab a déjà été trouvée. C’est 
ainsi que l’analyse du texte va repartir 
non pas à partir du deuxième caractère 
du texte, mais du cinquième pour véri- 
fier s’il s’agit d’un a. 


IH ne reste plus qu’à établir l’algo- 


rithme qui permet de calculer les valeurs 
mémorisées dans le tableau décalage. Le 
voici : 


pour i <— 1 à lonmot faire 
décalage (1) <— 0 ; 
pour ji <— 2 à lonmot faire 
début 
j— 0; 


répéter 
ne a 
si décalage {i + j — 1) = 0 alors décalage (i + j — 1) <— j; 
jusqu’à mot (j) < > mot (i + j — 1) ou alors i + j - 1> = lonmot 
fin ; 


Ainsi, dans notre exemple précédent 
qui effectue la recherche de la chaîne 
ababc, le tableau décalage mémorise les 
valeurs suivantes : 0,1,1,2 et 3. 


L’algorithme de Boyer et Moore 
effectue la recherche d’un mot en analy- 
sant non pas tous les caractères du texte, 
mais seulement quelques-uns soigneuse- 
ment choisis. De plus, les caractères du 
mot sont comparés de la droite vers la 
gauche, et non de la gauche vers la 
droite comme dans les algorithmes pré- 
cédents. Recherchons par exemple quel- 
les conclusions tirer en comparant le 


an TS 


dernier caractère du mot avec un carac- 
tère du texte que nous appellerons car. 


e Si car est le dernier caractère du mot, 
les lonmot — 1 caractères précédents du 
texte sont comparés avec ceux du mot 
pour savoir si celui-ci est ou non présent 
à cet emplacement. 

e Si car n'existe pas dans le mot, il est 
possible de passer immédiatement Jon- 
mot positions dans le texte, pour le com- 
parer au dernier caractère du mot. En 
effet, il est inutile d'examiner en détail 
tous les symboles du mot puisqu’un au 
moins ne convient pas. 

e Si car n’est pas le dernier caractère du 
mot, on peut avancer dans le texte 
autant de fois qu’il est nécessaire pour 
amener car en correspondance avec le 
même caractère du mot. 


Comme nous le constatons, cet algo- 
rithme permet d’avancer très rapide- 
ment dans le texte puisqu’il arrive dans 
certaines conditions que seul un carac- 
tère sur lonmot soit analysé. Toutefois 
cette méthode se complique assez rapi- 
dement dès que l’on entre dans les 
détails. Ainsi, lorsque car correspond 
avec le dernier caractère du mot, les 
symboles précédents sont comparés 
jusqu’à ce que l’on découvre que le mot 
est présent dans le texte ou qu’un carac- 
tère ne convient pas. Dans ce dernier 
cas, il est nécessaire d’avancer à nou- 
veau dans le texte, mais seulement à par- 
tir de cette position d’échec. 


Finalement, cet algorithme souffre du 
nombre de cas particuliers qu’il doit 
traiter, ce qui fait qu’il devient rapide- 
ment assez complexe et par conséquent 
moins efficace qu’il n’en a l’air. 


D'une façon générale, les éditeurs de 
texte, qui ont tous une fonction de 


recherche de chaîne, utilisent l’algo- 
rithme de Knuth, Morris et Pratt. Bien 
entendu, il peut se trouver sous diffé- 
rentes formes plus ou moins optimisées. 
En fin de compte, nous n’avons pas 
cherché ici à découvrir les algorithmes 
les plus efficaces, mais plutôt à voir 
comment, à partir d’un problème sim- 
ple, il est possible d’imaginer des métho- 
des de résolution très différentes les unes 
des autres. 
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AMSTRAD-GRAPHE 


_ QUELS CURIEUX 
CARACTÈRES ! 


N peut, avec l'Amstrad, redéfinir des caractè-  mible directement au clavier. il est plus 
. simple de l’obtenir par un PRINT 
res, Il n’en faut pas plus pour combler “A? ; mais comme tous les caractères 


existants ne figurent pas sur le clavier 


d’'aise les amoureux de la cédille, du circonflexe @l cette dernière solution n’est pas toujours 


ili 2 ; INT 
du tréma. C'est aussi l’occasion de créer des CHRS(45) fai apparaître un petit ban. 
véhicules spatiaux, des bestioles venues d'un RS NP RSR 
autre monde, et tout ce qu'il vous plaira. Si le La redéfinition des caractères passe 

par l’emploi des instructions SYMBOL, 
champ est vaste, il manque un outil prapque de  « SYMBOL AFTER. Cette dernière 
création Le voici commande indique au système le nom- 


bre de caractères qui peuvent être redé- 


Comment sont constitués les 

caractères sur le CPC 464? La 
documentation fournie à l’achat de la 
machine est assez claire sur ce point, et 
nous nous contenterons d’en rappeler 
les grandes lignes. 


Chaque caractère affichable est ins- 
crit dans une matrice carrée de 8 points 
sur 8. S’il existe 256 caractères définis, 
seuls 224 d’entre eux sont vraiment affi- 
chables à l’écran : ceux qui portent les 
numéros 0 à 31 correspondent en effet 


î KEY drole i3 “+CHRE C1) 

TO REMHMAR EMEA A EE A MONO A 
FD REM # CREACAR # CPC 46& # 

an REM LCI Je LALEV 3 


50 RÉPARER ss AE A AE ARE 


79 DIM CUT) :EVMEOL AFTER 27 
BG R$="D"IUHILE RE=‘o" 


100 FOR 1=@ YO 7ICOCI=UINEXTIREN MISE À Q DU TARLERL 


120 RÈM +bitttté PRESENTATION +++ét+t#ts 
E 1: SORDER 1 


: ÿ Ô é I MoOug STRINGEIZE, "2 
à des codes de contrôle. Les numéros 32 150 LOCATE 10, 2:PEN 1IPRINT'CREATEUR DE CARACTERES"ISEN 2 
à 255 sont, eux, tout à fait simples d’em- 


Ho ; : LEQ PRINT "3 STRINGHITE, 0) 
ploi, puisque pour afficher le caractère : 


numéro 65 (il s’agit de la lettre A), il suf- 
fit d’un PRINT CHRS(65). 


A noter que, ce caractère étant dispo- 


160 FOR 124 19 & 
MOVE 115, 280-1436: DRAN Liï+8r1S, 28G-j+16, 1! 
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Analyse du programme 


Ligne 10 : comme à l’accoutumée, nous 
nous préparons le moyen de reprendre rapi- 
MOVE 112+1416, ZES:DRAW 112+1#16, 298-8416, 1 dement le contrôle de la situation lors de 


NEXT | _ la mise au point du programme, par un 
WINDOW#1, 1, 40, 21, 25: PAPERKI, Zi CLSH1 simple appui sur la petite touche 


WINDCW#Z', 253 315 :@5 175 PAPER#E, 2: CLSKE 
PENHZ, S:LOCATE 1, LI PRINT#Z, FNGIS PRE . 
: Ligne 70 : nous utiliserons un tableau de 
DEFINITIONS 8 cases correspondant aux 8 lignes d’un 
NC=D:WHILE NEtSS OR NC) 285 . caractère. Le dimensionnement est limité à 
aus » "NUMERG DU CARACTERE "iN$ 7 puisque la case C(0) est utilisable et vient 
= (NS ) ra : 
IF NC(SZ OR NC)D2ZSS THEN PRINT#1, "CETTE VALEUR EST JILLEGALE !" Le A 
WEND : Pa 
CLSH 1: PRINTHT, NC caractères, SYMBOL AFTER est suivi du 
PEN#Z, D: LOCATE#S, 4, S:PRINTHZ, CHRSCNC) nombre 32, ce qui nous laisse 224 caractè- 
PEN#1, 3: PRINT#!, "UTILISEZ LES FLECHES POUR VOUS DEPLACER" res reprogrammables. Un tel luxe n’est pas 
PEN#1,@:PRINT#I," COPY POUR ALLUMER UN POINT," indispensable en l’occurrence, mais vous 
PRINT#1," DEL POUR ETEINDRE un POINT." permettra de constater l’aspect étrange du 
A AR programme si vous modifiez par exemple 
le caractère 32 : l’espace. 
X=0:Y=-0:GOSUB 750 
: Lignes 180 à 210 : la grille de travail 8 x 8 
D$="":WHILE D$()"F" apparaît à l’écran. 
D£="":WHILE D$="":D$=INKEYS : WEND i ; : éfini 
IF DS=CHR$(127) THEN GOSUB SUO0:REM TOUCHE DE tie te ; rene np - 
IF DH=CHR#S(Z241) THEN GOSUR E7@:Y=Y+i ë A à : 
IF D$=CHR$SC240 THEN GOSUB E70: Nate dessin du caractère en cours de traitement, 
IF DH=CHRS(C245) THEN GOSUE 670: X=X+1 l’autre sera réservée aux commentaires et 
IF DE=CHRS(Z24Z1 THEN GOSUB 67@:X=X-1 aux résultats. 
IF D$=CHR$S(Z24) THEN GOSURB S7Q:REM TOUCHE . x 
Lignes 260 à 310 : le programme s’en- 
GOSUB 720:REM DESSINE LA CROIX : 6 ’ qe 
F quiert du numéro du caractère à modifier, 
puis il en contrôle la validité. 


Lignes 320 à 370 : ici s’affiche le mode 


PEN#1 ; D: PRINT#I, "CARACTERE" SNCs M" Le 20 eu 
FOR 1=0 70 7 Lignes 420 à 490 : en fonction des tou- 
PEN#1:, 32 PRINT#1, CCI: ches pressées par l’utilisateur, l'exécution 
NEXT est dirigée vers les différents sous- 
PRINT#1:PRINT#1: PRINT#I, "UN AUTRE CARACTERE (O/A59" programmes de traitement. Les codes 
EE IWHILE RSÇ"N" OR R#) "OI RE=INKEY $: WEND CHRS$0 correspondent aux touches DEL, 
: COPY, et aux 4 touches de déplacement 
REM ++++t+t FIN DU PROGRAMME ++++++ du curseur. 
MODE 1:PRINT"AU REVOIR !" Lignes 530 à 570 : si l’utilisateur appuie 
sur F, l’affichage des 8 valeurs qui codent 
le caractère est effectué sur la fenêtre 1. 
EFFACE CROIX L k | 
PX1=120+X+16:PY1=200-Y+i16 Lignes 580 à 640 : il est alors possible de 
MOVE PX1-4, PYL:DRAW PX1+4, PY1, 0 redéfinir un autre caractère. 


HT ann PX1, PYi+4,@ Lignes 660 à 700 : si l’utilisateur se 


: déplace à l’aide des touches curseur, la croix 
DESSINE CROIX rouge qui indique la position actuelle dans 
IF X(Q THEN X=Q:ELSE IF X)7 THEN X=7 la grille est effacée. 


IF Y<QD THEN Y=Q:ELSE IF Y)7 THEN Y=7 : . : : 
PX1=120+X416: PY1=260-V#16 Lignes 720 à 780 : elle est ensuite redes 


MOVE PX1, PYI-A:DRAW PX1, PY1+4, = sinée, et l’on prend garde à ne pas sortir du 
MOVE PX1-4, PYL:DRAW PX1+4, PYI,3 cadre de travail (grâce au test de X et Y qui 
RETURN représentent les coordonnées nouvelles). 


FIN DU DESSIN 


+ fs à Le ‘ 
EFFACE POINT DA da de ue 
LOCATE X+8, V+B:PRINT “ " 3 | s 
MOVE 112+X+16, 288:DRAW 117+XH1E, 200-Bm16, À Y est effacé. Il faut alors reconstituer la 
MOVE 112, 288-VK1E-16:DRAW 11248416, 2B0-V#1E-1E 1 grille de travail qui vient de se trouver 
IF CCCY) AND 24(7-X)3)@ THEN CCY)=CCY)-26(7-X) amputée. Enfin, la valeur numérique venant 
GOTO 937@ de changer sur la ligne Y en cours, on met 
: à jour l’élément C(Y). 


REM ALLUME POINT 
LOCATE X+8, VE PRINT Ra t202) Lignes 870 à 910 : en cas d’appui sur 
MOVE 112, 288-Y#16-1E:DRAW 1127+8#16, 209-Y#16-—16, 1 COPY, on effectue une action similaire 
MOVE 112+X#16, Z8S:DRAW 11Z+X»16, 290-816, 1 ayant pour but d’indiquer l’apparition d’un 
IF CCCY) AND 24(7-X))=0 THEN C(CY)=CCYI#2667-X) nouveau point dans la grille. 


DESSINE CARACTERE Lignes 930 à 960 : enfin, lors de chaque 
SYMEOL NC:C€@), C1), CU2), CCR), C(4), CCS), CCE): CET) modification, on redessine le caractère af- 
LOCATE#Z, 4, 2: PRINTHZ, CHRSCNC) fiché dans la fenêtre 2, ce qui permet de 
RETURN conserver sous les yeux l’aspect exact du 
END nouveau caractère. 


N° 9- MAI 85 LIST - PAGE 41 


a 


AMSTRAD-GRAPHE 


finis. Elle exige un argument numéri- 
que représentant le numéro du premier 
caractère qui pourra être modifié. Si 
vous n’utilisez pas cette commande, 
vous pourrez tout de même en modifier 
16 : ceux qui portent les numéros 240 
à 255. La commande SYMBOL est plus 
difficile à exploiter, car elle exige 
9 paramètres pour fonctionner. Le pre- 
mier représente simplement le numéro 
du caractère à redéfinir. Les 8 suivants 
représentent les valeurs numériques qui 
codent le caractère, calculées ligne à 
ligne à partir de la matrice 8x8. 


Soyez 


paresseux 


Ce programme que nous vous propo- 
sons vous épargnera de fastidieux cal- 
culs pour déterminer la valeur des 
8 paramètres. Le caractère en cours de 
redéfinition sera visible sur l’écran en 
permanence, ce qui vous permettra de 
juger immédiatement de la qualité du 
résultat. Quand vous en serez satisfait, 
un simple appui sur la touche ‘‘F”? pro- 
voquera l’affichage des 8 valeurs numé- 
riques attendues, que vous n’aurez plus 
qu’à recopier. 

Si vous deviez faire ce travail manuel- 
lement, il vous faudrait dessiner une 
grille de 8 lignes sur 8 colonnes, et noir- 


cir les cases correspondant au dessin du 
caractère. Vous transformeriez ensuite 
chaque ligne en un nombre binaire, 
composé de 8 chiffres (un octet) corres- 
pondant eux-mêmes aux 8 points de la 
ligne. Un point noirci serait transformé 
en 1 ; un point intact devenant un 0. 
Enfin, ce nombre binaire serait à trans- 
former en son équivalent décimal ou 


Codage d'un caractère sur huit octets 


128 64 32 16 8 


|S | © 


| 
L 


ls is ‘© le 


s © = 06 0e ee se 


[=] 


0,0 


F 


24 (16+8) 

60 (32+16+8+4) 

102 (64+32+4+2) 

102 (64+32+44+2) 

126 (64+32+16+8+4+2) 
102 (64+32+4+2) 

102 (64+32+44+2) 

0 


En haut du schéma, la correspondance décimale des bits. Sur la droite, 


huit nombres, chacun sur un octet, 
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pour coder la lettre ‘A’. 


hexadécimal. Voyez le schéma de la let- 
tre À qui résume la situation. 


Heureusement, nous allons nous 
débrouiller autrement. C’est le pro- 
gramme, et lui seul, qui se chargera de 
mener à bien ce travail ingrat : à vous 
les joies de la création, à lui les basses 
besognes. Voilà une conception très 
plaisante de l’informatique, non ? 


Tel qu’il vous est proposé, le pro- 
gramme vous évitera à coup sûr bien des 
erreurs. Mais on peut toujours modifier 
ou améliorer un logiciel. Comment faire 
évoluer celui-ci ? Il est relativement 
facile de le compléter en faisant en sorte 
que l’on puisse conserver sur fichier 
(cassette ou disquette) les codes des 
caractères redéfinis et les récupérer à 
volonté depuis tout autre programme 
Basic de votre cru. 


Une autre possibilité, plus complexe 
celle-là, serait de traiter -une plus vaste 
grille rassemblant un grand nombre de 
caractères et de réaliser un panneau gra- 
phique complet. Notre programme 
pourrait s'intégrer tout naturellement 
dans un tel projet. 


Jean-Pierté LALEVÉE 
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= LES DIX TESTS DE LIST. 


EN BASIC LES 32 BITS 
SONT RAPIDES, SANS PLUS 


memes | 


Les programmes-tests 


Test 1 - Boucle vide 

10 FOR I=1 TO 10000 
20 NEXTI 

30 END 


Test 2 - Sous-programmes 
10 FOR 1=1 TO 10000 
15 GOSUB 100 

20 NEXTI 

30 END 

100 GOSUB 110 

110 RETURN 


Test 3 - Matrice 

5 DIM A(10,10) 
FOR I1=1 TO 10 
FOR J=1 TO 10 
13 FOR K=1 TO 100 
15 A(,J)=K 

NEXT K 

NEXT J 

NEXT I 

END 


Test 4 - Opérations sur les 
chaînes de caractères 

5 A$=« LISTEST » 

10 FOR I=1 TO 10000 


Résultats 
des dix tests 


Ordinateur 


15 


20 
30 


ES microprocesseurs 32 et 16 bits ont sur les 


8 bits l'avantage théorique de la rapidité 


B$ = LEFTS(AS$,2) 
+ MIDS(A$,3,3) 
+RIGHTS(A$,2) 
NEXT I 

END 


Test 5 - Arithmétique 


10 FOR I=1 TO 10000 


Test 8 - Tracé d’une ligne 
graphique 
10 FORI=1 TO 10000 


15 


LINE(0,0) - (319,199) 


20 NEXTI 
30 END 


Test 9 -Écriture de fichiers 


15 J=1+7+3/I 5 A$=« LISTEST » 
20 NEXTI 6 OPEN «0», # 1, 
30 END « FICHIER » 
10 FOR 1=1 TO 10000 
Test 6 - Calcul scientifique . rs L 44 
10 FOR 1=1 TO 10000 25 CLOSE 
15 J=SIN (LOG(I)) 30 END 
20 NEXTI 
50e Test 10 - Lecture de fichiers 
6 OPEN «I», #1, 
Test 7 - Affichage « FICHIER » 
10 FOR I=1 TO 10000 10 FOR I=1 TO 10000 
15 PRINT CHRS(I1) ; 15 INPUT # 1, A$ 
« LISTEST » ; 1 20 NEXTI 
20 NEXTI 25 CLOSE 
30 END 30 END 


Test 6 


Mais cet avantage se retrouve-t-il quand la 
machine fonctionne en Basic ? Pas vraiment. 


La sortie sur Macintosh du nou- 

veau Basic Microsoft en version 2 
binaire, plus rapide que la version 1 tes- 
tée dans LIST 7 donnait l’occasion de 
comparer les vitesses des machines 32 et 
8 bits : Macintosh et QL chez les pre- 
mières, Dai et BBC chez les secondes. 
Et nous en avons profité pour rajouter 
l'arbitrage d’un ordinateur 16 bits : le 
sérieux IBM-PC. 


Les vieux 8080 et 6502 seraient-ils 
écrasés ou balayés par les flambants 
68000 ? Nous en sommes en fait très 
loin, et les victoires des Dai et BBC dans 
les tests 1, 2, 3, 4, 7 et 10 prouvent que 
les 8 bits ont encore de beaux jours 
devant eux... Quant au malheureux 
IBM-PC, il ne gagne pas le moindre 
test. 


Cela dit, la vitesse d’exécution d’un 
Basic n’est qu’une caractéristique parmi 
d’autres. Pour certaines applications, 
elle ne rentre pas en ligne de compte. 


LIST 


Test 8 Test 10 | Processeur 


Macintosh 


191 
15 chiffres 


345 
500 x 250 


69 
disquette 


68 68000 
disquette | 32/16 bits 


Sinclair QL 


145 
8 chiffres 


2293 
512x256 


135 99 68008 
microdrive | microdrive | 32/8 bits 


Dai 


799 
6 chiffres 


2518 
336X 256 


5 
77 62 8080 
disquette | disquette 8 bits 


405 
9 chiffres 


427 


114 


468 
640xX 256 


1944 1944 6502 
cassette | cassette 8 bits 


290 
7 chiffres 


334 


110 110 8088 
disquette | disquette | 16/8 bits 
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N système de chiffrement est utilisé A. ? 
pour coder des messages que 

l’on souhaite garder secrets. Si, tout 
en étant fiable, il réduit le nombre 
d'octets des textes à transmettre, il 
devient particulièrement intéressant 
pour les ordinateurs. C'est le cas 
de celui qui est présenté ici 
dans un programme en Basic. 


Le système de chiffrement que 

nous vous présentons remplit une 
double fonction : il assure le secret de 
vos communications tout en réduisant 
de 40 % le nombre d’octets des textes 
à transmettre. Normalement prévu pour 
des transmissions par fil ou un stockage 
sur bande ou disquette, ce procédé peut 
aussi servir pour une sortie sur impri- 
mante. Cette variante se prête mieux à 
une démonstration et c’est pourquoi 
nous l’avons choisie, bien que l’obliga- 
tion de transcrire chaque octet par deux 
chiffres hexadécimaux masque l’écono- 
mie réalisée. 


Entrons dans le vif de la technique. 
La fonction abréviative est assurée par 
un premier codage : l’espace et les 13 
lettres les plus fréquentes sont représen- 
tés par un chiffre héxadécimal unique, 
autre que 1 ou 2 ; les autres lettres, les 
chiffres et 9 signes de ponctuation, par 
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_ ESPIONITE. 


D. 


13 


2 chiffres hexadécimaux dont le premier 
est toujours ! ou 2. 


Le résultat de ce codage initial .est 
découpé en groupes de quatre chiffres 
hexadécimaux correspondant chacun à 
un « entier » au sens Basic du terme, 
c’est à dire un nombre compris entre 
— 32768 et + 32767 et codé sur deux 
octets. Ces entiers subissent une pre- 
mière substitution, puis à la fin de la sai- 
sie, une transposition, constituée par un 
mélange pseudo-aléatoire réversible, et 
une deuxième substitution avant sortie 
pour transmission, stockage ou 
impression. 

Le déchiffrement effectué dans l’or- 
dre inverse les opérations réciproques de 
celles du chiffrement. 

Une « clef secrète » numérique X, 
convenue entre les correspondants, la 
date et l’heure Y du message, ainsi que 
sa longueur entrent dans le calcul des 
« graines » servant à initialiser des 


RRTT 
j x 


séquences RND. Ces dernières fournis- 
sent les clefs individuelles FN K, défi- 
nies ligne 20, qui déterminent chaque 
substitution ou transposition élémen- 
taire par le biais de l'opérateur XOR (ou 
exclusif). Ce dernier a été choisi pour la 
symétrie commode des opérations réci- 
proques : si A XOR B = C, alors C 
XOR B = A. 


Tant pis 


pour les fautes 


Mis à part le codage initial, l’utilisa- 
tion d’entiers et celle de XOR, les prin- 
cipes de chiffrement sont analogues, 
pour l'essentiel à ceux du procédé 
exposé dans le n° 5 de LIST (page 28), 
mais on peut cette fois utiliser les chif- 
fres et la ponctuation dans le clair. 


N° 9- MAI 85 


2 Déchiffrement 


THEN 45 


R1O CLS:PRINT"Préparer l'imprimante":DEFSTR A-D:DEFINT E-M:DEFDBL X-Z 
15 D-='"#A##CDEILNOPRSTU BFGHJKMQVWXYZ. ,':/-()?70123456789":P=65535t! 

DEF FN A=RIGHT$(C"OO0"+HEXS$S(F),4):DEF FN K=Px(RND-.5):INPUT"CLEF";Xx 
PRINT"1 Chiffrement, 
ON VAL (INKEY#) GOTO 35,75:GOTO 30 
C=TIMES$:Y-VAL(MID$S(DATES, 4,2) +LEFTS(C,2)+MID$(C,4,2)+MIDS(C,7)) 
Z=RND(-X/Y):DIM F(2500):PRINT'"Taper le texte, 
C=INKEYS$:IF C-"" 
E=-INSTR(D,C):IF E THEN PRINT C;:B=B+HEX$S(E-2) ELSE BEEP 

IF LEN(CB) 3 THEN F(L)-FN K XOR VALC'"&H"+LEFT$(B,4)):B=MID$(B,5):L=L+1 
IF E-1 THEN 45 ELSE Z=RND(C-XxY/L):LPRINT 
GOSUB 70:F-FCI) XOR FN K:LPRINT FN A+" 
M=I+ABSCFN K)MOD(L-I):SWAP F(M),FCI):RETURN 
INPUT'"Date.Heure";Y:INPUT"Longueur";L:DIM FL) ,H(L):Z=-RND(-XxY/L) 
FOR 1-0 TO L-1:F(I1)=I:NEXT:PRINT"Taper 


op" 


puis #" 


Y:L:FOR I1=0 TO L-1 


“;:NEXT : END 


le crypto":FOR 1-0 TO L-1 


B-B+INKEYS:IF LEN(B):4 THEN 85 

F=VAL("S&H"-+B):IF B<>FN À THEN BEEP:B-"":GOTO 85 
5 PRINT B+" ";:B="":GOSUB 70:H(F(I1))-F XOR FN.K:NEXT:Z=RND(-X/Y) 
100 FOR I1=0 TO L-1:F-H(I) XOR FN K:C-C+FN A 


me pour Epson PX-8 
jèrre Barnouin 
ght LIST et l’auteur 


Un exemple de message codé, puis décodé. 


Clef: 123456789 

20143315 2 

ESCF 2723 062D C203 9AB1 
4+BOD 83ED DA79 622B 94ED 


L'HISTOIRE NE SUIT PAS UN SEUL COURS, ET L'ESSENTIEL N'EST JAMAIS CONCLU. 


20143315 21 
Mesurés en octets, les textes en français 
usuel sont abrégés de 40 %. 


Le contrôle de saisie écarte les minus- 
cules et certains signes au chiffrement, 
et n’accepte que des groupes de quatre 
chiffres hexadécimaux au déchiffre- 
ment. La saisie s’effectue au kilomètre 
sans possibilité de correction, mais les 
fautes de frappe auront peu d’inconvé- 
nients. La saisie du crypto en blocs de 


Le programme ligne à ligne 


Lignes 10 à 30 : Initialisation com- 
mune et choix 

Lignes 35 à 55 : Chiffrement 
e Initialisation (lignes 35 et 40) 
e Saisie du clair, contrôle et encodage 
(lignes 45 et 50) 
e Substitution n° 1 (ligne 55) 
e Fin de saisie (ligne 60) 
e Transposition, substitution n°2 et 
impression (ligne 65) 

Ligne 70 : Sous-routine commune de 
transposition 

Lignes 75 à 115 : Déchiffrement 
e Initialisation (lignes 75 et 80) 
e Saisie du crypto sous contrôle (lignes 
85 et 90) 
e Transposition et substitution n°2 
(ligne 95) 
° Substitution n° 1 (ligne 100) 
e Décodage (ligne 110) 
e Impression du clair (lignes 105 et 115) 
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IF LEN(C)<2 THEN NEXT:LPRINT,Y,L:END 
E=2+(C<"1")+(CC>="3"):G=VAL("&H"+LEFT$(C,E)) 
C=MID$(C,E+1):LPRINT MID$(D,G+2,1);:GOTO 105 


OOE7 745C 1DFF A256 B728 E634 8663 1CD2 A1FA CBAE 19E0 


quatre chiffres hexadécimaux par 
INPUT$(4) minimise le risque d’un 
décalage qui obligerait à recommencer 
le déchiffrement. 


Côté sécurité, la transposition et les 
substitutions se protègent mutuellement 
de façon très efficace, et l’écrasement 
des fréquences par le précodage vient 
encore compliquer la tâche des décryp- 
teurs, qui devront disposer de gros 
moyens informatiques et d’une parfaite 
connaissance des séquences RND sur 
l’ordinateur utilisé. Pour un usage pro- 
fessionnel, on les priveraïit de ce dernier 
atout en remplaçant la fonction FN K 
très simple définie ligne 20, par un 
ensemble de fonctions élaborant des 
entiers aléatoires de façon beaucoup 
plus sophistiquée. 


Vous pourrez d’ailleurs personnaliser 


D'un Basic à l’autre 


L'instruction SWAP (ligne 70) échange 
les contenus des deux variables F(M) et 
F(). Elle peut être remplacée par : 
W = F(M):F(M)=EF(D:F0) = W:. 


L'opérateur XOR (lignes 65, 95, 100) 
est un « ou exclusif. » {l prend la valeur 
vraie (généralement -- 1) si l’une seule- 
ment des deux assértions qui l'entourent 
est vraie, il est faux (généralement 0) dans 
le cas contraire. | : 


RE + . . 


ainsi à votre gré ce programme, écrit en 
Basic Microsoft sur un Epson PX-8. 


Voici quelques précautions utiles si 
vous manipulez des informations 
« sensibles. » 


Ce n’est pas par découragement que 
les vilains petits curieux ont renoncé à 
semer dans vos bureaux les « punaises » 
qui leur rapportaient vos conversations. 
Ils disposent aujourd’hui de détecteurs 
qui recopient sans problème, à travers 
murs et planchers et à quelques dizai- 
nes de mètres tout ce qui s’affiche à 
grands flots d’électrons sur l’écran du 
tube cathodique de votre moniteur. 


L'écran plat à cristaux liquides est du 
même coup devenu un « must ». Le 
Grid Compass fait fureur chez les mili- 
taires et on s’arrache les D.G. One dans 
certains services. 


Tout aussi peu discrètes, et à proscrire 
absolument, sont les liaisons infrarou- 
ges de périphériques. Remettez des cor- 
dons s’il y a lieu à votre Apricot ou à 
votre IBM et attendez de pied ferme la 
nouvelle vague de « punaises » qui 
analyseront avec subtilité le crépitement 
des imprimantes ! 
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LES COUPS D'ŒIL DE LIS 


ES insatisfaits du Basic, les boulimiques 
de la petite fenêtre, les apôtres du 
NSC 800... bref, tous ceux qui possèdent un Canon 
X-07 et veulent en tirer plus encore, trouveront 
dans Ass-Desas un logiciel fait pour eux. 


Sous un nom en forme de jeu de 

mots, l’Ass-Desas cache un As- 
sembleur-Désassembleur destiné aux 
usagers du Canon. Mais pas à n’importe 
quels usagers ! De par ses caractéristi- 
ques et sa structure, ce logiciel sur ças- 
sette édité par Logji’stick exige une capa- 
cité mémoire minimum de 16 Koctets. 
Aussi, ceux qui — finances obligent — 
ne disposent pas d’une version « gon- 
flée » de la petite machine tireront les 
conclusions qui s’imposent.… Les autres 
peuvent envisager le chargement du pro- 
gramme. Si, en outre, ils disposent 
d’une interface TV et même d’une 
imprimante, alors tout est possible : le 
grand confort, en quelque sorte. 
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Peu épaisse, succincte même, la docu- 
mentation rassemble sept feuilles som- 
mairement agrafées qui forment un petit 
manuel de 28 pages et qui doivent tout 
vous apprendre sur la manipulation du 
logiciel. Les premières pages constituent 
une introduction au langage-machine, 
destinée à ceux qui ne se sont jamais 
essayés à cette langue barbare (idiome 
Z80, naturellement ; le processeur du 
X-07, le NSC 800, ressemblant fort au 
Z80). Les explications données sont évi- 
demment des plus restreintes, et le 
novice fera bien d’équiper sa bibliothè- 
que d’ouvrages plus conséquents qui 
prépareront le terrain. 

C’est aussi sur ce sage conseil que 


ASS-DESAS 


UN UTILITAIRE 
LANGAGE-MACHINE 
POUR LE CANON X-07 


s’achèvent les explications données. Les 
pages suivantes se décomposent en trois 
parties essentielles. Les premières 
contiennent le mode d’emploi de l’As- 
sembleur, puis celui du Moniteur-Désas- 
sembleur. La dernière partie comporte 
neuf pages : il s’agit d’un tableau 
complet des mnémoniques du Z80 et de 
leur symbolisation. 


Éditeur 


plein écran 


La cassette contient quatre program- 
mes : l’ Assembleur, le Moniteur-Désas- 
sembleur, un Assembleur-Désassem- 
bleur rassemblant les deux premiers en 
un seul fichier, et un Désassembleur des- 
tiné à l’usage de l’écran vidéo TV. 

La mise en mémoire de l’ Assembleur 
ne pose pas de problème : un court pro- 
gramme Basic sert de chargeur aux 
codes de l’ Assembleur proprement dit 
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qui réside après lui sur la bande. Le 
chargement s’effectue en moins d’une 
minute ; c’est donc assez rapide. L’As- 
sembleur seul occupe les adresses 
&H3400 à &H3D11. Il laisse en fait plus 
de 11 Ko disponibles pour le travail sui- 
vant, si vous aviez 16 Ko au départ. 


Pour l’entrée du programme-source, 
la technique « éditeur Basic » a été rete- 
nue. En fait, vous entrez au clavier la 
suite des mnémoniques composant le 
source comme vous le feriez pour un 
programme Basic. Vous devez donc 
numéroter les lignes et vous bénéficiez 
de tous les avantages de l’éditeur plein 
écran. Ceci implique toutefois quelques 
contraintes : la première ligne du source 
doit contenir un « ( » et rien d’autre, 
tandis que la dernière ligne ne contien- 
dra qu’un «}) ». Ces deux caractères 
servent d’indicateurs de début et de fin 
du programme destinés à |’ Assembleur 
que l’on lance par un RUN 60000. Le 
chargeur Basic contenant cette ligne 
devra donc être conservé en mémoire : 
pas de NEW avant d’écrire la routine ! 


Cinq codes 


d'erreur 


L’Assembleur accepte les commentai- 
res en fin de ligne, après le caractère 
« # ». Dommage que l’écran ne soit pas 
plus grand ! 

Il est possible d’utiliser des étiquettes 
(labels) de deux caractères au plus. 
L’Assembleur les reconnaît à la pré- 
sence du signe « : » qui les précède obli- 
gatoirement : par exemple, nous pou- 
vons définir l'étiquette « : LI ». 


Les mnémoniques doivent respecter la 
syntaxe Zilog. Il est en particulier indis- 
pensable de ne jamais omettre l’espace 
qui précède le(s) paramètre(s), car l’As- 
sembleur ne signalerait pas l’erreur, et 
assemblerait avec un code erroné. C’est 
gênant. 


Lorsqu’une référence est faite à une 
étiquette, son nom est signalé par un 
« L » qui le précède. Avec l'étiquette 
définie précédemment, « : LI », nous 
pourrions donc écrire par exemple : 
“JR NZ,LLI”’. 


Les paramètres en question peuvent 
être fournis en décimal, hexadécimal ou 
négatifs ($SFF, 255, —$1 et —1 sont 
équivalents). Si les valeurs données sont 
aberrantes, l’ Assembleur ne signalera 
pas, là non plus, l’erreur commise. 


Lors de la phase d’assemblage, cinq 
codes d’erreur sont susceptibles d’appa- 
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raître, en fonction des défauts détectés 
au sein du programme-source. S’il s’agit 
de l’erreur 0, c’est bon signe : aucune 
erreur n’a été détectée. Il ne reste plus 
alors qu’à soumettre la routine à 
l'épreuve du feu. 


Dans le cas contraire, le 
numéro de la ligne fautive 
qui est affiché en même 
temps vous aidera dans vos 
corrections. 


La cassette contient deux 
versions du Moniteur- 
Désassembleur. L’une d’el- 
les est destinée à l’usage 
d’un téléviseur. 


Le programme Moniteur offre cinq 
possibilités à l’utilisateur : désassem- 
blage, édition du contenu-mémoire, 
visualisation des pointeurs, sauvegarde 
et chargement langage-machine. Un 
menu permet de sélectionner l’option 
désirée. 

Contrairement à l’Assembleur, le 
Désassembleur peut être chargé n’im- 
porte où en mémoire. Le choix de 
l’adresse d’implantation est donc le pre- 
mier problème que les explications four- 
nies dans le manuel n’aideront pas faci- 
lement à résoudre. 


Le désassemblage s’effectue ligne à 
ligne sur l’écran, mais on peut aussi 
obtenir qu’il soit listé sur imprimante. 
L'édition mémoire affiche huit octets 
seulement sur l’écran incorporé (48 sur 
un moniteur TV). L’affichage peut se 
faire en décimal ou en hexadécimal. 
Cette dernière possibilité offrant en 
prime l'affichage du caractère ASCII 


Le logiciel en quelques lignes 
Nom : Ass-Desas : 
Ordinateur : Canon X-07 
Forme : cassette 


Edité par : Logi'stick 

Distribué par : DDI 

Prix public : 150 FF 

Principales orientations : assembleur, mo- 
niteur, désassembleur 


ER 


correspondant au code. En manipulant 
un curseur à l’aide des touches habituel- 
les, il est possible de modifier le contenu 
d’une adresse en changeant simplement 
la valeur affichée, ou le code ASCII 
associé. 


Avec le moniteur, la zone mémoire 
pour fichiers est accessible, et modifia- 
ble à volonté. Cela pourra sans doute 
conduire à des résultats amusants ! 


Enfin, les routines SAVE et LOAD 
permettent la sauvegarde et la récupé- 
ration sur cassette de vos routines, ou 
de la zone mémoire de votre choix, com- 
prise entre les adresses spécifiées. L’op- 
tion LOAD permet au besoin de rechar- 
ger en mémoire à une adresse différente 
de l’adresse d’implantation initiale. 


L’Ass-Desas est un logiciel intéressant 
dont sauront faire bon usage tous ceux 
que tente le langage-machine. Ses per- 
formances d’ensemble sont correctes et 
suffisantes pour faire beaucoup de cho- 
ses... Comme pour tous les logiciels du 
genre, l’utilisateur devra bien connaître 
sa machine pour tirer le meilleur parti 
des possibilités offertes. Les débutants 
devront s’attendre à bien des peines, que 
la documentation insuffisante ne pourra 
aplanir. Ils devront en tout cas se docu- 
menter sérieusement avant de s’y frot- 
ter. Les autres savent déjà où ils vont 
et pourront faire beaucoup de petites 
routines ! 


| Robin BOIS 
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LES COUPS D'OEIL DE LIS 


UN BASIC ÉTENDU 
POUR ZX SPECTRUM 


OMME on le sait, le Basic de Sinclair est original 
à bien des égards, et notamment par ses 
lacunes. Pratiquement aucun traitement des 
erreurs, par de PRINT USING, d'ELSE, de DEL... 
Ëre Informatique propose une extension du Basic 
sur cassette qui apporte une quinzaine 
d'instructions supplémentaires. 


Le Basic étendu proposé par Ëre 

Informatique comporte 15 nouvel- 
les instructions, très facilement accessi- 
bles (un point d’exclamation précède 
chaque mot clé), et qui complètent heu- 
reusement le Basic du Spectrum. 


Signalons tout d’abord des instruc- 
tions que l’on ne trouve que dans cer- 
tains langages très structurés, et qui ren- 
dent possible une écriture plus élégante 
des programmes (en évitant l’emploi de 
GOTO par exemple). On trouve en par- 
ticulier la structure WHILE... WEND 
(Tant que - condition - Fin de tant que), 
la structure REPEAT...UNTIL... 
(Répète - instructions - Jusqu’à - con- 
dition). On trouve encore le ELSE en 
complément à IF... THEN... et des ins- 
tructions de traitement des erreurs, du 
type ON ERROR... et RESUME, qui 
offrent plusieurs options. Ainsi 
RESUME O0 provoque un retour à la 
ligne où l'erreur s’est produite, 
RESUME NEXT permet le retour à la 
ligne qui suit l’erreur, RESUME nnn 
fait reprendre à la ligne nnn. Le PRINT 
peut désormais être accompagné d’une 
instruction de formatage (USING) qui 
fait ou non référence à une chaîne de 
caractères définie ailleurs (on écrira, par 


LIST - PAGE 48 


exemple : A$ = ‘‘###.##77, puis 
PRINT USING Af$, nnn). Tout cela 
apporte déjà un net « plus » au Basic. 


Mais d’autres instructions viennent 
simplifier le travail d’écriture et de mise 
au point des programmes. C’est le cas 
d’AUTO (numérotation automatique), 
de DEL (suppression sélective des 
lignes), de RENUM (renumérotation de 
tout ou partie d’un programme). 


Deux nouvelles 


instructions graphiques 


Le mode TRACE est disponible pour 
afficher les numéros des lignes exécutées 
avec des options qui le rendent particu- 
lièrement performant. On peut par 
exemple fair exécuter un programme 
Basic ligne par ligne ou faire imprimer 
les numéros de ligne et les variables ren- 
contrées par le programme (ce qui évite 
d’encombrer l’écran). Une petite curio- 
sité au passage : la présence de l’ordre 
FIN dont l'intérêt devient évident quand 
on fait appel à l’ordre ON ERROR nnn. 


DEPUIS QUE JUTILISE CE 
BASIC ÉTENDU ; MON 2x N'EST 
PLUS LE MEME! 


En effet, les erreurs une fois traitées, le 
programme est en quelque sorte protégé 
des fautes de l’utilisateur. Mais ces 
erreurs risquent tout de même de pro- 
voquer un plantage du programme. Or, 
le STOP est lui aussi considéré comme 
une erreur. L’utilisation de FIN est donc 
indispensable pour arrêter le pro- 
gramme. | 


Ce n’est pas tout. Deux autres ins- 
tructions, présentes sur de nombreux 
appareils, mais pas sur le Spectrum, 
sont désormais disponibles, et permet- 
tent des effets remarquables : il s’agit 
de GIANT et PAINT. 


Avec GIANT, on écrit en caractères 
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Exemple d'exécution 


10 


20 


REM ESSAI DE FAINT 
INF 6: FAFER 1: CLS 


Oo FOR 1=1 TO 4 

à CIRCLE 60%1-40,2041, 10%] 
50 FAINT 60#1-40, 201,6 
NEXT I 


agrandis à n’importe quel endroit de 
l'écran (après avoir positionné le curseur 
d'écriture grâce à PRINT AT). Contrai- 
rement à ce qui se passe dans la plupart 
des micro-ordinateurs, on peut préciser 
à l’aide de deux paramètres la taille de 
l'agrandissement. Cette instruction ori- 
ginale, utilisée dans une boucle, rend 
possible des effets de « zoom » assez 
étonnants. Il est même possible d’agran- 
dir avec cette instruction les caractères 
graphiques définis par l'utilisateur (j’en 
ai fait l'expérience), mais cela n’est pas 
précisé dans le manuel et ce n’est peut- 
être pas conseillé. 

Plus classiquement, PAINT colorie 
une surface fermée désignée par l’un 
quelconque de ses points. 

Les possesseurs de « microdrives » 
apprécieront très certainement le fait 
que la notice indique la manière de pro- 
céder pour copier le programme sur car- 
touche, ce qui le rend plus rapide à char- 
ger. Le logiciel est enregistré en ligne 0 ; 
il est donc possible de sauvegarder en 
une seule fois, sans manœuvre particu- 
lière, à la fois le Basic étendu et un pro- 
gramme réalisé dans ce mode. 


Le logiciel en quelques lignes 
Nom : Basic étendu 
Ordinateur : ZX Spectrum 
Forme : cassette 


Edité et distribué par : re Informatique 
Prix public : 180 FF 

Principales orientations : extension du 
Basic, traitement d'erreur, édition de pro- 
grammes, mode TRACE... 


La notice (14 pages au format de la 
cassette.) contient le minimum d’expli- 
cations utiles pour tirer parti des 15 nou- 
velles instructions. Adaptée aux versions 
14 et 48 Ko du Spectrum, cette exten- 
sion du Basic coûte 180 FF ttc. 


Jacques DECONCHAT 
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LES COUPS D'ŒIL DE LIS 


PER 


POUR LE 
COMMODORE 64 


1 XPer travaille sur des fiches, il se démarque 
pourtant beaucoup des logiciels de gestion de 
fichiers : il met en œuvre certains des mécanismes 
propres aux systèmes-experts. Ses applications 
sont variées (chaque utilisateur en inventera), 
mais elles restent étroitement limitées par la 


mémoire de l'ordinateur. 


Commençons par signaler que 

nous avons testé XPER sur C.64, 
mais qu’il en existe des versions adap- 
tées à l’Apple IT et à L’IBM-PC. Ce 
logiciel est vendu sous la forme d’une 
disquette. Un bon point pour la docu- 
mentation d’accompagnement : un 
livret de 156 pages, complet, lisible et 
auquel ne manquent ni la table des 
matières, ni l’index. 


Disquette 


obligatoire 


XPer se veut (documentation dixit) le 
premier logiciel d'IAO disponible sur 
micro-ordinateur. Un « AO » (Assisté 
par Ordinateur) de plus dans l’univers 
de l’informatique : sachez que le I signi- 
fie « Identification ». Si vous ne vous 
sentez pas mieux renseigné pour autant, 
sachez qu’il s’agit en fait d’un système 
de gestion de bases de données... Mais 
au fait, il en existe déjà bien d’autres ! 


EEE D 


Alors, qu'est-ce qui fait l’originalité de 
celui-là ? 

La documentation se compose de 
trois parties essentielles : la première 
permet à l’utilisateur de se familiariser 
avec les concepts qui sous-tendent l’exis- 
tence d’un système du type d’XPer. 
Huit pages sont consacrées à cette pre- 
mière approche. La seconde partie est 
un cours complet en 9 leçons qui per- 
met à l’utilisateur de connaître le fonc- 
tionnement du logiciel dans ses grandes 
lignes. Enfin, les 60 dernières pages ras- 
semblent la documentation de référence 
du logiciel. 


L'installation d’XPer sur le commo- 
dore 64 nécessite un lecteur de disquet- 
tes, d’une part parce que le logiciel est 
proposé sur ce type de support, et d’au- 
tre part parce qu’on ne pourrait imagi- 
ner de faire fonctionner une base de 
connaissances (variante de la base de 
données, comme nous le verrons) un 
tant soit peu sérieuse en utilisant un 
magnétophone. L'utilisation d’une 
imprimante n’est, elle, pas indispensa- 
ble ; maïs si vous en avez une, ce sera 
parfait. 


XPer est partagé sur la disquette en 
4 programmes distincts qui correspon- 
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Au menu principal, le choix du programme . 


mais aussi celui des couleurs 


dent aux principales fonctions du logi- 
ciel : édition, recherche, modification et 
impression. Le chargement de chaque 
programme est généralement long, ce 
qui est dû au volume de chacun et à la 
lenteur bien connue des disquettes du 
Commodore. 


Sur le 64, XPer accepte de traiter des 
fichiers contenant au maximum 100 
individus, chacun d’eux pouvant être 
décrit par 40 variables, elles-mêmes 
découpées en 200 modalités. L'espace 
mémoire disponible est de 4688 octets. 
Un fichier exemple fourni avec le pro- 
gramme rassemble 38 individus, 17 
variables et 43 modalités, tout en lais- 
sant 3495 octets disponibles. L’espace 
mémoire semble donc suffisant, même 
s’il n’est pas immense à première vue. 


La création d’une base de connaissan- 
ces s’effectue sous le contrôle de l’édi- 
teur. Il s’agit de définir le titre, les varia- 
bles de description des individus et leurs 
modalités, pour remplir un tableau dit 
« croisé » qui les rassemblera. Pour 
notre premier essai, nous avons choisi 
de créer une base de données « vins », 
histoire de joindre l’utile à l’agréable. 
Nos individus (Gevrey-Chambertin, 
Mouton-Rotschild) se sont donc vu 
décrire en termes de variables (robe, 
corps) et modalités (rouge, gou- 
leyant..….). Ce genre de travail peut être 
relativement fastidieux, surtout si la 
cave est bien garnie ! Mais l’éditeur pos- 
sède des facilités qui simplifient l’ou- 
vrage avec une aide disponible à tout 
moment. À l'issue de ce premier essai, 
notre base de connaissances minimale 
rassemble 8 individus, 3 variables et 11 
modalités. La sauvegarde du fichier 
consomme seulement 6 blocs sur la dis- 
quette, et cela en 6 fichiers distincts. 
Le programme détermineur est à la 
base de toute exploitation du fichier. Ici 
encore, une familiarisation minimale 
permet de se débrouiller dans les com- 
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mandes qui s’enchaînent. Le détermi- 
neur est capable de vous dire quel est le 
vin qui figure dans le fichier et qui cor- 
respond aux critères choisis : rosé, pro- 
duit en Alsace, ayant de la cuisse. A cela 
s’ajoute la possibilité de savoir à tout 
moment pourquoi tel vin a été éliminé, 
et quels sont les critères ayant provoqué 
son rejet. Voilà donc une première dif- 
férence avec une base de données 
traditionnelle. 


Un logiciel 


complexe 


De plus, lors de la création de la base 
de connaissances, il est possible d’utili- 
ser un système de filiation entre des 
variables « mères » et « filles » qui per- 
met de simplifier les critères de détermi- 
nation ou de mieux structurer les 
données. 


Autre possibilité peu courante, XPer 
peut calculer un taux de similitude entre 
individus. Pour rester dans le domaine 
de l’oenologie, cela revient à dire, par 
exemple que vous pourrez savoir par 
quel autre nectar réconfortant rempla- 
cer le vin qui fait défaut le jour où vos 
invités sont particulièrement difficiles. 


Encore possible, le regroupement 


Le logiciel en quelques lignes 


Nom : XPER 

Ordinateur : Commodore 64 

Forme : disquette 

Edité et distribué par : Micro Application 
Auteur : Jacques Lebbe 

Prix public : 950 FF 

Principale orientation : gestion de bases 


de connaissance 


d’individus correspondant à certaines 
caractéristiques de votre choix. Le 
fichier « félins » qui sert de support 
didactique fourni avec le logiciel per- 
met, grâce à ce type de groupement, de 
révéler que tous les félins africains de 
moins de 80 kg, qui grimpent aux arbres 
ont des griffes rétractiles, des canines de 
petite taille, et ronronnent (caressez-les 
pour voir !). On le démontre au prix 
d’un petit jonglage avec diverses com- 
mandes qui deviennent peu à peu plus 
complexes : nous en sommes à la 6° 
leçon. Nous n’avons pas utilisé notre 
base personnelle pour ce type d’essai ; 
sa trop petite taille, ses imprécisions et 
ses lacunes n’auraient pu que nous indi- 
quer que tous les vins blancs viennent 
d’Alsace ! Toutefois, seule notre 
paresse aurait été mise en cause au vu 
de cette conclusion : l’analyse d’une 
mauvaise base de données ne peut don- 
ner que de mauvais résultats. 


XPer enfin peut vous aider dans le 
choix des critères de sélection en élimi- 
nant de lui-même les critères non discri- 
minants, c’est-à-dire ceux qui ne perme- 
tent pas de différencier plusieurs indi- 
vidus à un instant déterminé de la sélec- 
tion. Si vous avez une imprimante, tou- 
tes les opérations effectuées par le déter- 
mineur pourront être suivies pas à pas. 


Deux derniers programmes enfin, 
appelés réorganisateur et imprimeur, 
permettent d’effectuer une liaison entre 
des bases de données ayant des indivi- 
dus ou des critères communs ; et d’ef- 
fectuer des modifications dans un 
fichier déjà créé. Enfin, le listage sur 
papier du contenu intégral de la base de 
connaissances est une possibilité qui 
pourra se révéler précieuse. 


XPer n’est donc pas un gestionnaire 
de fichiers comme les autres, les capa- 
cités que nous avons découvertes l’at- 
testent. Au chapitre des critiques nous 
retiendrons que la taille des programmes 
rend les temps de chargement très longs, 
bien qu’à la vérité, on n’en change pas 
constamment. La complexité du logi- 
ciel, dont nous n’avons fait qu’effleu- 
rer les possibilités, rend indispensable 
un apprentissage sérieux. Le manuel 
offre 9 leçons bien construites, mais 
lPutilisateur devra découvrir aussi en 
pratiquant. 


XPer paraît donc susceptible de sup- 
porter de nombreuses applications. Son 
usage se conçoit mieux avec des fichiers 
importants ; aussi son emploi sur des 
micro-ordinateurs aux capacités limitées 
peut sembler d’un intérêt discutable. 
Tout le problème est : XPer pourquoi 
faire ? Gageons que ses utilisateurs ne 
manqueront pas d’idées. 


Jean-Pierre LALEVÉE 
‘ N°9-MAI 85 


di RS ON NS 


comme s’il s'agissait d’un texte : se « 
n'importe où dans cette liste, la corri 
transformer très facilement, En sens 
chemin est aussi court. Et on retrouve sa list 


Basic corrigée. 


Ah, Bill Gates, que nous te vou- 

lons de mal ! Quand tu écrivis ton 
célèbre Basic Microsoft, prévoyais-tu les 
crises de nerfs que vaudraient, à des mil- 
liers de maladroits et/ou perfectionnis- 
tes, les instructions par le biais tortueux 
desquelles on peut, après avoir subi tou- 
tes les étapes pénitentielles d’une lente 
cérémonie expiatoire et purificatrice, 
être admis à l’honneur de modifier une 
ligne de programme ? Certes non. 
Aujourd’hui, les nouveaux Basic ont 
des éditeurs commodes, parfois même 
pleine page, qui ont remplacé plus 
qu’avantageusement les tortures savan- 
tes que nous connûmes pour notre 
honte. 


Bien plus, nous disposons maintenant 
de traitements de texte standard. Dans 
la plupart des cas, ils permettent d’opé- 
rer simplement, même dans les Basic 
anciens encore soumis, en principe, aux 
contorsions diaboliques et primitives 
issues du vieux système Microsoft qui 
nous ouvrit les portes de la programma- 
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TE 


LISTES BASIC. 


tion. Prenons le cas des langages de base 
des TRS-80, des Apple II et III, et du 
Dai (sans doute les lecteurs de LIST 
pourront-ils facilement allonger la 
liste) : pour chacun d’eux, il existe une 
manipulation élémentaire qui permet, à 
l’aide d’un traitement de texte classique, 


Sur TRS-80 modèles III ou IV 


Matériel : modèles III ou IV avec Basic Microsoft usuel et traitement de texte 
SuperScripsit. 

1. Ecrire le programme sous SuperScripsit, le sauver en lui donnant un nom de 
fichier (par exemple, PGM:0). 

2. Quitter le document (par Ctrl Q), appeler le transcripteur « Scripsit vers Ascii », 
ce qui fabrique un document Ascii avec, par exemple, le nom de fichier PGMBAS:0. 

3. Passant en Basic, faire LOAD ‘‘PGMBAS”’, puis SAVE ‘‘PGMBAS”’. Le pro- 
gramme est alors normalement enregistré comme s’il avait été, depuis le début, écrit 
avec la procédure Basic usuelle ; on peut alors le renuméroter, l’exécuter, etc. 

4. Partant maintenant d’un programme Basic (PGMBAS, par exemple), on peut 
l’amener sous SuperScripsit pour le triturer tout à loisir avec la souplesse maximale 
en se livrant simplement à la manœuvre inverse de la précédente : charger par LOAD 
“PGMBAS’’, faire SAVE ‘PGM :0””,A (ce qui le met en Ascii). Puis, par l’utili- 
taire de transcription d’Ascii vers Scripsit, lui donner un nom de fichier Scripsit 
(PGM:0) et l’appeler alors à l’écran comme un texte ordinaire. 
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LISTES BASIC 


Sur Apple Il ou III 


Matériel : Apple II +, Ile, Ic, II avec 
Applesoft ou Business Basic — selon le 
cas — et traitement de texte AppleWri- 
ter, ou autre. 

1. Ecrire le programme Basic sous 
AppleWriter, lui donner un nom de 
fichier comme MYFILE compatible avec 
le DOS (SOS pour Apple III, par exem- 
ple), le sauvegarder puis, tout simple- 
ment, faire EXEC MYFILE. Il est alors 
enregistré en mémoire comme un vrai 
programme Basic et peut donc être exé- 
cuté, renuméroté, etc. 

2. Pour montrer comment opérer de 
manière inverse, prenons par exemple un 
programme TOTO occupant les lignes 10 
à 2500. On doit le transformer en un 
fichier texte utilisable sous AppleWriter 
(ou autre) en lui accolant un bout de pro- 
gramme supplémentaire dont le but est 
d’effectuer cette métamorphose. 

. Sur les Apple II : 

10000 D$ = CHRS(4) 

10010 PRINT D$; ‘‘OPEN 
TOTO.TEXT” 

10020 PRINT D$; ‘‘WRITE 
TOTO.TEXT”’ 

10030 POKE 33,30 

10400 LIST 0,2500 

10500 PRINT D$; ‘CLOSE TOTO. 
TEXT’”’ 

10600 TEXT:END 

e Sur Apple I : 

10000 FILES$ = ‘‘TOTO.TEXT”’ 

10100 CREATE FILESS,TEXT 

10200 OPEN#I1 AS OUTPUT,FILES$ 

10300 OUTPUT#1 

10400 OUTREC = 255 

10500 LIST 0 TO 2500 

10600 CLOSE #1 

10700 END 


PRÉSIDENT VA 
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d’écrire et de modifier un programme 
Basic et, surtout, de pouvoir prendre 
une ancienne liste afin de la retravail- 
ler. Voici donc quelques procédures 
adaptées à ces différents cas. Elles 
devraient nous épargner, à tous, de lon- 
gues soirées d’énervement ! 


Sur Dai 


Matériel : Dai avec DAltext. 

1. Ecrire le programme, l’éditer en 
totalité, puis BREAK, BREAK. 

2. Passer en UTILITY et relever les 
adresses de début et fin de fichier. 

3. Placer DEBUT en #A2 et #A3, 
FIN +2 en #A4 et #A5. 

4. Réserver de la place, sous Basic, par 
un CLEAR suffisant. 

5. Compiler le programme par POKE 
#135,2. Lister, ou exécuter, c’est prêt ! 

Inversement, pour insérer dans DAI- 
text un programme Basic déjà écrit (par 
exemple, TOTO), il faut : 1. Editer le 
programme EDIT, BREAK, BREAK. 

2. Sous UTILITY, noter les adresses 
de DEBUT et FIN, en #A2/#A3 et 
#A4/#AS. 

3. Déplacer le fichier (commande 
MOVE), de façon qu’il commence en 
#3000 et repérer la nouvelle FIN de 
fichier. Sauver ce fichier sur mémoire de 
masse par W3000 < FIN > NOM. 

4. Charger DAltext v.20 et le lancer, 
si la version n’est pas « auto-start ». 
Appeler l’option MODEM, puis la com- 
mande « recevoir ». Sortir de DAltext 
par RESET, puis recharger le fichier 
NOM (R NOM). 

5. Réajuster les pointeurs #A2/#A3 et 
#A4/#A5 aux bonnes valeurs (#3000, 
nouvelle FIN +2). Faire G(o)19BB qui a 
pour effet de transformer le fichier EDIT 
en fichier DAltext. 

Ce dernier est prêt à être manipulé par 
DAltext. 

Ces procédures sont utilisées pour 
transmettre ou recevoir, par voie téléma- 
tique, des fichiers autres que du texte 
(binaire, Basic, Pascal, etc.). 


Comme on le voit par les quelques 
exemples proposés, les procédures à uti- 
liser ne sont guère difficiles à mettre en 
place. quand on les connaît (encore 
faudrait-il que les différents construc- 
teurs veuillent bien signaler largement 
ce genre de possibilités). L’utilité de ces 
procédures est évidemment encore plus 
grande lorsqu'il s’agit de programmeurs 
professionnels et/ou occasionnels 
ayant à reprendre fréquemment telle ou 
telle partie de programme dans des 
ensembles plus vastes : ils passeront par 
exemple alternativement sous traitement 
de texte pour faire les modifications 
indispensables — sélection d’un 
« bloc » déterminé, changement systé- 
matique d’une occurrence par une 
autre, etc. —, puis reviendront au Basic 
pour la rénumérotation systématique et 
ainsi de suite. Le gain de temps peut être 
alors vraiment significatif. Toute exten- 
sion à cette liste « à malices » sera évi- 
demment la bienvenue. 


André WARUSFEL 


Lancer ces programmes par RUN 
10000 : notre TOTO est alors disponible 
sous forme accessible à AppleWriter ou 
tout autre traitement de texte usuel. 


CT) 


PEINTURE ROUGE 


"ES 
ET SUIVEZ -Moi!' VOUS ATTENDEZ ? 
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PC-1500 ET CE-150 


Nous ÉTUDIERO AUBURD laut, 
re LA “ROUETTE" DÉCRITE FAR 
Î ceTrE BRIGNOIRE EFFECTUANT 


(" JE __ UN RouLÉ “BOULE... 


Le Sharp 
PC-1500 équipé 

de son imprimante dessine 
fort bien les roulettes pour 
peu qu’on l’aide d’un court pro- Ba 
gramme. Plus précisément, il trace la 
roulette du pôle d’une courbe définie en 
coordonnées polaires : e = f(8). 

L’étude de cette trajectoire est un problème 
mathématique très classique et bien ancien. Gali- 
lée, Torricelli, Roberval, Descartes se penchèrent 
sérieusement sur ce sujet a priori futile mais dont 
un cas particulier, la cycloïde (voir LIST n° 4 et 
6), servit en fait de banc d’essai pour les nouvelles 
méthodes de calcul infinitésimal. 


Le programme (page suivante) étudie le tracé de 


RAÉETE la courbe sur l’arc [TO, T1] et T représente l’angle 

nr te courant @ (on est en coordonnées polaires). On 

D pourra utiliser un programme indépendant de tracé 

de courbes pour connaître la forme et la valeur du 

3B1"I"PI=, 54005 T:RETURN maximum du rayon vecteur sur l'intervalle. Ce 
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TE 


SUR DES ROULETTE 


A roue bien ronde rUANES sans glisser sur un sol plat 
n'est qu'un cas idéal certes, mais particulier, 

Comme on avait commencé à le voir dans LIST n° 6, on peut i imaginer 
bien d’autres formes de roues, et observer les « roulettes » ainsi obtenues, 
c'est-à-dire les trajectoires décrites dans le plan fixe par tel point donné 
de la courbe en mouvement. 


rayon fournira l’échelle du dessin. Bien 

évidemment, on aura intérêt à éviter les 

valeurs non définies ou infinies de e. 
Après avoir lancé l’exécution d’un 

RUN ou DEF A, cinq questions sont 

posées par le programme : 

e l’équation de la roue, qu’on écrit sim- 
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PC-1500 ET CE-150 


:REM ROULETTE 
:GOTO "a" 


s "É"RESTORE, “ff 
: I=C(PEEK 8&78BE 
—128)X256+PEEK 
878BF+6: INPUT 
“ÉQUATION ROUE 
=?" 

:J=31679:FOR I= 
ITO I-18+PEEK 
(1-7):1F PEEK 
J<2>13POKE I, 
PEEK J:J=J+1: 
NEXT I 

:POKE 1,58, 241, 
153, 13: RETURN 

: "A"GOSUB "E" 

:"S'"RADIAN : 
CLERR : INPUT ‘ 
PARTITION:N="; 
N, ‘Nb ROUES="; 
NR, "MAX DE PT= 
"; PM 

: INPUT "BORNEB= 
3 T8, "BORNE 1=" 
TI 

: TEXT :CSIZE 1: 
COLOR B:LPRINT 
"ROULETTE": 
LPRINT "PRECI. 

MyNELPRINT " 
NbROUL: ‘";NR: 
LPRINT "MAX PT 
Sp 

: LPRINT "BORNES 
5 "Ti", "3 
TJ:LPRINT 

: INPUT "COEFF, 
GLISSEMENT: Q= 
“3: Q:LPRINT “Q= 
DATA 
ELLIST “f" 

:REM  INITIALIS 
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ATION 


: NR=NR-1:C0=185 


/PM 


:R=CTI-TB)/ C2KXN 


):H=2XR 


: REM REPERE-AXE 
S 
: GRAPH : 


GLCURSOR (78, - 
64): SORGN : 
LINE (-78, B)-< 
158, B):LINE (8 
» =188)-(2, 0) 


:J=]:CI=INT ÇCN 


+1) /7NR): COLOR 
2 


:DIM L(3), C3) 


INPUT "COFFF.G 
L'ISSEMENT: Q="; 
Q 


: T=TQ-R: GOSUB 


SU: MCB)=PT 


: T=19: GOSUB "f" 


:MCIDEPT 


: TU=MCIDKR/ CMC1 


3-M(@)) 


:IF MC1)-MCB)<9 


LET VE=N+AIN € 
TU): GOTO “T" 


!UE=ATN (TU) 
LOT'X=-COXMCIDX 


COS CUE):Y=COX 
MCIDXSIN (UE) 


: GOSUB "L": 


GLCURSOR CY, -X 
>: T=TG 


: FOR 1=ITO N:iT= 


T+R:GOSUB "f": 
MC2)=PT 


: TET+R: GOSUB "F 


":MC3)=PT 

FOR K=1T0 3 
L'CK)I=SCMCKIKMC 
K)+(MCK)2-MCK-1 
D)K(MCK)-MCK-1 
327 CRXR)D) 


INEXT K:S=LC12)+ 


axL(2)+L(3):S0 
=SO+RXS/3 


:DE=(M(3)-N(2)) 


ZR: TU=MN(3)/DE 


:IF MC3)-NC2)<8 


LET VE=N+ATN € 
TU): GOTO "R" 


:UE=ATN (TU) 
: "RX=COKCGXSO- 


PTXCOS (UE)):Y 
=COXPTXCSIN CU 
ÉJJSLINE =CY,- 
XD 


IF ISCILET J=J 


FI2CIZ=INT CJXN 
/NR+,5):AT=T: 
GOSUB "L" 


: GLCURSOR CY, -X 


D:MCB)=MC2): MC 
1)2=MC3D:NEXT I 
LINE CB, -X)-{ 
9, GB): TEXT 


: INPUT "AUTRES 


VALEURS? (0, N)" 
RS: IF R$="0" 
GQTO "s" 


: END 
: "L'COLOR 2:RO-= 


T+UE:T=TQ: 
GOSUB "ff": U=X+ 
COXPTXCOS CT-R 
QD: U=Y+COKPTYX 
SIN CT-RO) 


: GLCURSOR (UV, -U 


): T=TB-R 


:FOR 2=1T0 N:T= 


T+H: GOSUB ‘"f" 


: U=X+COXPTXCOS 


GT-RO) : U=Y+COX 
PTXSIN CT-RO) 


LINE -CU, -U): 


NEXT Z:T=AT: 
COLOR I:RETURN 


STATUS 1 


Quelques courbes particulières 


e1/2+SINT 

e SINT 

e 1/2+COST 
e4/5+COST 

e 1/SQR(1 — 0.5#SIN(2xT)"2) 


. 1/(4+COS(G3+T)) 

+ SQR(2 + COS(2+T)) 

° 3+ COST) 

« 1/(SQR(I + SIN(2xT)) + SQR(I — SIN 
(2+T))) 

+ (SQR(1 + SIN(2+T)) + SQR(I — SIN 
(2xT))) 


RQULEITE 
PRECI, 40 

NbRQUL. 

MAX PT. 1.3 

AQRNES: -6.285 , @ 


38: t"PIZSIN T+,5#SIN (2#1)+(1/33% 
SIN (C3YT7):RETURN 


plement en toutes lettres sous la forme 
d’une fonction de la variable T (auto- 
programmation, voir {Ordinateur de 
poche n° 11), 

e la partition, comprise entre 20 et 100, 
soit simplement le nombre de points du 
tracé (précision), 

e le nombre de positions, 3 au mini- 
mum, de la roue qui roule, 

e les bornes TO et T1 de l’intervalle (les 
T extrêmes de l’arc, en radians), 

e le coefficient Q de glissement (entre 
0 et 1). 


Grâce à ce dernier coefficient, on peut 
introduire un glissement de la « pierre » 
sur le « sol ». Pour la, valeur 1 aucun 
glissement ne se produit : le tracé est 
celui de la roulette. Pour 0 la roue 
patine sur place : c’est la glissette. Et 
pour 0<Q<I, on passe par les cas 
intermédiaires. 


Christophe MASUREL 
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)- 
le 


PORTO + ee 


UNE PROCÉDURE PASCAL 


 D'UNE VARIABLE LOGIQ 


SAISIE 


UEL que soit le programme utilisé, il y à 
toujours, à un moment ou à un autre, un 
choix à indiquer, une réponse par oui ou par non 
à donner. Autant programmer une fois pour toutes 
la procédure qui se chargera d'afficher la question 
et de contrôler la réponse. Elle trouvera sans 
aucun doute sa place dans votre bibliothèque de 


Sous"programimes. 


Chaque fois qu’un programme 

pose une question appelant une 
réponse par oui ou non, et les occasions 
ne manquent pas (confirmation d’un 
ordre, pour ne citer que ce cas), on peut 
mémoriser la réponse dans une variable 
booléenne. Examinons une fonction 
adaptée à ce type de problèmes. Elle est 
déclarée de la façon suivante : 
function d_ accord (question : string ; 
defaut : boolean) : boolean ; 


Le premier paramètre (question) cor- 
respond au texte de la question qui doit 
être posée ; le second (defaut), à la 
réponse qui sera prise en considération 
si l’on ne désire pas y répondre. Le pro- 
gramme poursuivra dans ce cas avec la 
réponse par défaut. La réponse retour- 
née par la fonction sera donc soit la 
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réponse entrée au clavier par l’utilisa- 
teur, soit la réponse par défaut. 


Dans la liste du sous-programme telle 
qu’elle apparaît page suivante, plusieurs 
réponses sont possibles. Le caractère O, 
majuscule ou minuscule, permet de 
répondre « oui ». Même remarque pour 
Y et y qui correspondent au « yes ». 
Ainsi, les réponses fournies par un uti- 
lisateur habitué aux programmes du 
système d'exploitation (dont les dialo- 
gues sont souvent en américain) seront 
acceptées sans problème. Cela présente, 
accessoirement, l’avantage de générali- 
ser les programmes à la langue anglaise. 


N et n seront utilisés pour les répon- 
ses négatives. Une pression sur la tou- 
che correspondant à cette lettre fait 
donc retourner à la fonction, dans des 


conditions que nous verrons plus loin, 
la valeur fausse. Les touches « Return » 
et « Escape », la barre d’espacement, 
ainsi que la lettre Q (majuscule et 
minuscule) permettent de ne pas répon- 
dre. Elles sont utilisées lorsque l’on 
désire retourner (Return) à un endroit 
du programme, s’échapper (Escape) 
d’une fonction ou quitter (Q) un traite- 
ment. Dans tous ces cas, c’est-à-dire 
quand l'utilisateur ne donne pas de 
réponse explicite, c’est la valeur par 
défaut, spécifiée par le programme, qui 
est prise en compte. 


| Quand on ne répond 


ni oui ni non 


Comme nous le voyons, cette fonc- 
tion, bien que simple en apparence, rend 
plus souple l’utilisation des programmes 
en prévoyant les réponses qui sont habi- 
tuellement données, ou que, dans le 
doute, on a intérêt à donner. 


La valeur par défaut, qui est le para- 
mètre de cette fonction, ne doit pas être 
négligée. En effet, en permettant d’évi- 
ter la réponse, c’est cette valeur qu’amé- 
liore l’ergonomie d’un programme. 


Il est difficile de savoir dans quels cas 
cette valeur devra être vraie et dans 
quels autres elle sera fausse. Deux argu- 
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Programme de saisie d'une variable logique 


ments interviennent. Le premier con- 
cerne la réponse qui est habituellement 
donnée : la valeur par défaut doit dans 


if not autorise then write (chr (sonnette)) 
until autorise ; 


reponse : = Car in Oui; 

if (car in oui) = (car in non) then reponse : = defaut ; 
if reponse then write ( Oui’) else write (’Non’) ; 

writeln 

d__accord : = reponse 


function d__accord (question : string ; defaut : boolean) : boolean ; 


ce cas correspondre à la réponse la plus 


const sonnette = 7 ; (Code ASCII du « beep » sonore) courante. Il peut s’agir par exemple 
retour = 13; (Code ASCII de la touche (return)) d’une saisie répétitive d’articles telle que 
sortie = 27; (Code ASCII de la touche (escape)) l’illustre l'extrait de programme 
var car : char ; suivant : 
reponse : boolean ; 
autorise : boolean ; SN NE 
oui, non, repeat | 
def : set of char ; saisir__article(art) ; 
begin enregistrer(art) ; 
oui: =" PO’ 07, °Y", v1S until not d__accord(’ Désirez-vous continuer la saisie ?",true) | 
non: = [’N’,”’n’]; RE —— 
» LEE] » » L , -) . 
. os D LS Le second argument porte sur la sécu- 
repeat | rité des données ; la valeur par défaut 
read (keyboard, car) ; doit alors correspondre à la réponse qui, 
if eoln (keyboard) then car : = chr (retour) ; comme dans l’exemple ci-dessous, ne 
autorise : = Car in oui + non+ def ; provoquera pas d'effacement ni de 


destruction. 


end ; 


if d__accord(’On détruit cet article ?”, false) 
then 
detruire__article(numero) 
else 
begin 
writeln; 
writeln( Destruction non effectuée.) 
end ; 


MON CHER PROFESSEUR TOURNESOLDE | DE SLIS FORMEL, VOTRE 
ONE VARIABLE 
BOODLÉENNE 


PERROQUET A BEL ET BIEN AVALÉ 


= Le sous-programme de saisie d’une 
variable logique se compose de trois 
sous-ensembles. Initialisés dès l’activa- 
tion de la fonction, ils permettent de 
spécifier les caractères qui peuvent être 
utilisés pour répondre oui, non ou la 
valeur par défaut. Les adaptations éven- 
tuelles se feront donc aisément. Il est par 
exemple possible d’élargir le champ des 
réponses « oui » et « non » en tolérant 
les fautes de frappe de l’utilisateur. Il 
suffira de prendre également en compte 
les touches avoisinant celles que l’on a 
réservées aux réponses. 


(rm 


\ 


L 


La fonction prévoit les cas où un 
caractère entré par l'utilisateur se trouve 
dans plusieurs des ensembles OUT, 
NON et DEF. Cette situation pose un 
problème car on peut hésiter pour savoir 
quelle est la réponse à prendre en 
compte. D'une manière générale, cela se 
résout logiquement. La table de vérité 
ci-contre indique quelle est la valeur qui 
sera retournée suivant que le caractère 
entré fait partie ou non des ensembles 
OUI, NON et DEF. L'étude détaillée du 


CAR in OUI CAR in NON CAR in DEF 
0 (faux) 0 (faux) 0 (faux) 
0 (faux) 0 (faux) 1 (vrai) 
0 (faux) 1 (vrai) 0 (faux) 
0 (faux) 1 (vrai) 1 (vrai) 
1 (vrai) 0 (faux) 0 (faux) 
1 (vrai) 0 (faux) 1 (vrai) 
1 (vrai) 1 (vrai) 0 (faux) 
1 (vrai) 1 (vrai) 1 (vrai) 
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programme montre que ce contrôle ne 


VALEUR nécessite que deux lignes. 


RETOURNEE | 


(refusé) C’est ainsi qu'avec une simple fonc- 

1 (vrai) tion, les programmes deviennent à la 

0 (faux) fois plus simples, plus rapides à écrire 

0 (faux) et plus agréables à utiliser. 

1 (vrai) 

1 (vrai) 

0 (faux) 

sure Thierry CHAMORET 
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( 
à 


Ds: 


in st de De 


]- 


À 


Dans le domaine des disquettes 

Commodore, poursuivons nos 
investigations, particulièrement bénéfi- 
ques aux utilisateurs de disquettes sur 
Vic, C.64 ou autres modèles plus 
anciens. La série d’utilitaires proposée 
jusque-là (voir LIST 3, 4, 6 et 7) est 
complétée aujourd’hui par un éditeur de 
blocs complet. C’est dire que l’étape est 
importante. 


L'éditeur de blocs est un instrument 
à manier avec précautions : il ne faudra 
l'utiliser que sur les doubles des disquet- 
tes. Avec des disquettes originales, le ris- 
que est trop grand d’en détruire le 
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EE 


NE bibliothèque d'utilitaires 
/ pour disquettes serait peu |. 
{e chose sans un éditeur de blocs. 

Un tel instrument permet, après = 
oir recherché le contenu de } 
uel secteur d’une piste, 
l'écran, d'y apporter | || 
ifications souhaitées }|| 

ensemble à l'endroit 
st vraiment un outil 
fondamental. 


: 100 
1181 
12e 

1488. 
140 : 


15a 
168 
ira 
138 
153a 
zaa 
21a 
zzû 
23@ 
24a 
258 
264 


INSPECTEUR MAC LiST, NOTRE 
ÉDITEUR DE BLOCS ViENT 
DE RETROUVER LA PISTE 
DU VOLEUR DE DiSQUETTES. 
iL EST DANS VOTRE 
SECTEUR ! 


OK CHEF |, COMPTEZ SUR 
NOUS ; ON S'EN OCCUPE 
TOUT DE SUITE ,, 


REM ENORME 
UTILITAIRE DISQUE N.S % 


REM M MODISECTEUR * 
REF HMOIIOIOEMOEMMOROIONROE MN RNORNOR 


REM EDITEUR: PERMET DE YVIGUALISER ET MODIFIER LES BLOCS SUR DISQUETTE 
: 

DEFFHACNIEN-INTCH/162416+1 
DEFFHRCNIEN/16+1 

CA$=CHRS EC, > 2x$="@Q12345S6789ARCDEF * 
FORISITONS:EF#S=EF#+" "eNEXT:EF#$-="SimMONNIaN 
CIM TSÉ2S),C1#çC31>,A$<312 

FOR 1=1 TO 17eFS€13=2G3NEXT 

FOR 1=18 TO 24:TS =1R:HEXT 

FOR 1=25 TO 3GiITS I 2=17 :HEXT 

FÜR 1=3%1 TO 3S: CID =1S:HEXT 

ÜPEN &,8,1S, "pa" 


D"+EF$+"2]" 


2r7a : 


zec 


GOSUER 528 


29Q CLOSE &Z:PRINTHRG, "1": CLOSESG 

sa ENC 

31@ : 

R2Q REM MMAMMMNON MEME ROMEO EM ERRELIR CI SALIE  #emeekste tement meme teens eee ee OCDE 


3e 
248 
EU 
36a 


INPUT#SO-E1-E2$.E8,E4 517 Ei<21 THEN 36G 

PRINT'SRREUR DISQUE :":PRINT E1",."E2$","E3","E4 :CLOSES2 :CLOSER@ 
FOR I=& TO 188 :HEXT 

RETURH 


37@ à 


ES 
39& 
48a 
41@ 


RE HAMMAM A MO AO COIN. ASC TI CHEF MH MONO PO POE  EED EDEE E MEMOE 
HERASLEHE+CRS > 2 ZH=MIDS LES, FHECN 2, 10 +MI0ECHS.FNACND , 15 :RETURH 
ë 


REM HORMONE MORE CONS. HE AD CECI MAL. HHEMOIMORONOME DEEE DONC DE DD OE Fr, 
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contenu, en partie ou entièrement. Un 
programmeur averti en vaut deux ! 


Chacun des blocs inscrits sur une dis- 
quette occupe très exactement un sec- 
teur de celle-ci, soit 256 octets. Il est 
facile de positionner la tête de lecture 
sur la piste et le secteur choisis afin de 
récupérer tous les octets qui s’y trou- 
vent. Encore faut-il pouvoir lire ces 
octets. Pour être aussi parlant que pos- 
sible, l’éditeur devra fournir d’une part 
les octets sous forme hexadécimale, et 
d’autre part leur traduction sous forme 
de caractères ASCII. Il devra aussi les 
disposer à l’écran de telle sorte que les 
modifications soient possibles. 


La plupart des machines disposent de 
40 colonnes. C’est peu, et en tout cas 
insuffisant pour tout afficher à la fois. 
Il faudra donc partager les 256 octets en 
deux pages de 128 octets, et se donner 
le moyen de commuter les pages à 
volonté sur l’écran. 


Une solution d’une 


grande simplicité 


Il va de soi qu’avec un Vic, la version 
de l’éditeur devra subir des modifica- 
tions avec un découpage du bloc en qua- 
tre pages commutables. Mais avec 80 
colonnes, aucun problème. 


Pour modifier à loisir le contenu des 
pages, une solution idéale existe. Elle 
consiste à écrire, en Basic ou en langage- 
machine, une routine simulant un édi- 
teur plein écran qui permet de se pro- 
mener sur la page affichée et d’y effec- 
tuer toutes sortes de modifications. 
Mais cette solution est vraiment difficile 
à mettre en place. 


Nous avons choisi, ici, une solution 
d’une grande simplicité : un programme 
en Basic qui emploie une série d’instruc- 
tions INPUT. Ceci oblige à faire très 
attention à la frappe au clavier, aucun 
accès direct à l’octet choisi n’étant 
possible. 

D'autre part, il faut veiller à ne pas 
introduire de virgules ou de deux-points, 
faute de quoi ils seraient refusés avec 
l'affichage d'un message d’erreur 
détruisant ce qui est à l'écran (mais sans 
conséquence pour la disquette et son 
contenu). Si une telle erreur était com- 
mise, le mieux serait alors de presser sur 
la touche STOP (ou STOP/RES- 
TORE), et de relancer le programme 
avec RUN. Quelle perte de temps ! 

Les valeurs doivent être tapées en 
hexadécimal. Mais lorsqu'il s’agit de 
caractères alphabétiques ou numéri- 
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F=LEHCHS 0 2H=. 
FÜRJ=ITUOE : 
H=1LS#H+G HE} 


CMIDSSHE, TI, 150-452: IFOLATHENGES-T 
T 2RETURH 


© RE AAA NEA AMAR HAE CREATION DES CHA LHIES bo ob ob hé he eee OO 


A FORIS. TOSZSSSTEFR:F = l SAS sCS="" 
FÜRI=1TOX:GETHRZ, HE: SUR zSA 
CH=C++28+" IFHE SU @UOIRHEL "EU THEHNHE=" , " 
A AS-AE+HE 2 HET 201 ECHEC AS CKOI=AE HEXT 
RETURH 
RENT  # #ee M Pa Me M MM FFF LC HAIGE SEC TELIRS  #éhé eo hé ohe ee b  e bebeh ennhe ne 


PRIHT®'9"," à MODISECTEUR ‘ 

INPUT" PISTE IRRRRSRSSERSERRERSE  :tF 
IF NP£<1 OR HP525 THEH Sau 

PRINT'T"TABC 1% >; 2IHPUT'- SECTEUR LL LL TRES 


IF HS<. 


REM ++44+444+4+++44+++4+4++4++4+++4++ LECTURE 
OPEH 32,8,2,'"#":GOSUB x3ù 
FORK=. TOUS :C1SCKH="UINEXT 
5 

PRINTH&Q, "LU 2: "2:02: HP 3:NS 
GOSUE X3G:IF E1 THEN S4@ 
PRINTHAG,"E-F"2;:G:GET#EZ,AES :GETHEZ,AHS$ 

PRINTHSG,"B-P"2;@ 

GOSUR 33@ 

5 

REM +44 tt tttttttttthé AFFICHAGE ECRAN +44 EEE LEE 
PRINT"9"," g LECTURE DE BLOC #5 

PRINT" # PISTE S'NP'H M / SECTEUR S'HS'EI D x" 

PRINT" eaNang" ," 4 LUN IMSTANT 2VF :GOUSUE 46 

CLOSE R2:E=@:G0T0 75 

GET R$:1F R$=" "THEN em 

IF R$="F'THEN 125 

IF R: MeUTHEH F5@ 

E=E+16:1F E516 THEH E=@ 

PRIHT" eue)" 

FOR I<E TO E+1S:k=]1#e 


OR HESTECHP: THEN 57@ 


SECTEUR 44444444 dt 4 4 + 


PRINT" g";:IF K<18@@ THEH PRINT" ‘>:1lF KC1S THEN PRINT" "; 
PRINTK 3 "DE "CAS I: ASC IS 

HEXT I 

PRINTEF# : PRINT" BSPCR MOCIF ECRIT # ÿ + M PAGE # 3 F M Fin" 


GOTü 


FREM +4++ tte tt +++ te +++ + +++ MODIFICATION 4444 be EEE HER RE 
PRINT EF#:PRINT" 3 M @IDIFIES 9 + SAGE * d 0 BISQUETTE" 

GETRS$ :I1FR$="CO"THENI 17 

IFR$="E"THEHRSC 

IFRS "M" THENRSG 


FE 


PRINT'S", "MODIFICATION DE BLOC’ 


a PRINT'SNN":FOFR I=E TO E+15 


1a1Q 
142 
1830 
144 
1aSe@ 
ae 
iara 
iasa 
143 
1iaa 
111@ 
1128 
113@ 
1148 
115à 
116& 
117a 
118@ 
119@ 
izûe 
1218 
1228 
123a 
124 
125a 
126@ 
1274 
12e 
12952 
13@@ 
131a 
132@ 
132€ 
1348 
1358 
136à 
137a 


IHPUT''ERBBI:C1SS I 
HEXT 
PRINTEF + :FRINTTARI ES" ŒATIENTEZ 
REM +++té+t++é+t+++++t++ TRAÎITE CHAINES ENTRÉES #44 tt 
PRIHT "aug" 
FORISETOE+1S:C$= "0: A$=UU:PRINTTARS 402" 
FORL=1TOZASTEP3:P$=MIDS Ci$u Is, L.2 
IFLEFTS#(P#,152", CTHENNS=RIGHT# FPS. 105 :GOSURISA:FS=2$ 1 G0TO 
H$=P$:GOSUR 420 :H$=CHE SH 

C$=Cs+P#+" " 

IFH$<"C"CRH <"THENNS=", 

AS=AS+NS MENT 2C1$ NI 0=CS AS AI =RE MENT 


RENM +éttét+t++trt+t++++é++++ EST-CE Gk 
PRINTEFS#S:INPUT®S TOUT EST Ok «ON 
IF R$="C"THEN FSG:REM Ok 

IF R$='N"THEN SSG:REM À REFRIRE 
GÜTU 111R:REM ERREUR 

REN +éttététt++ttt++tt+ REECFITURE OÙ SECTEUR +44 
PRINT'S"."3S RECOFIE SUR DISQUE # " 
PRINTEF#:PRINT"S PUIS--IE RECOPIER 
GETRS$ :IFR$="N"THENS4Q 
IFR$<D"Q"THEN1 190 

PRINTEF$ :PRINT" ä CKk... 
CFENRZ,8,2,"#":G0SUR 3x0 
PRINTHEQ "RP "2 70: G0SURSI : IFE 1 THEN1 168 
FRINT#SG,"B-F"2 F0 

FORI=, TOR T :K=DK@SIFCIORI1SY=18THENPRINT "au" 
FRINT"ÿ":3:IF KC1Q0 THEN PRINT" "331F KC1@ THENPRINT" ue 
PRINT Ke" NE MU: CIS CIO: ASC I | 
FORL=1TOZA4STEPS:INS=MIDSICISL LS ,L,22 1GOSUBR4ZR :PRINTHEZ, CHR$S CN 


UH INSTANT SF" 


Fel 


1aex 


UE 


MERS :RS=LEFTSIRS, 1 


LCCMY 2" 


RECOPIE EN COURS " 


GOSUR 33@:IF E1 THEN 1160 
PRINTHGQ, "02" 32: 8 NF :NS:GOSUE 330 :IF Ei THEN STOP 
ÊLUSESS 

5 


REM +444 +++ ++ +++ tt tt +++ AUTRE SECTEUR 7 444444 
PSEASCEABS+CR$ D ESS=ASCCAHS+CES > 

IF PSCI OR PSD2S THEN NS=NS+1:G0TO 128@ 

HP=PS 3NS=SS 
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? :NEXT :NEXT 


Ca 


MORIFICHTION DE BLÈC 


14 GC as 
&4 as : 
GF . GF 
14 2 24 
CGF A3 29 GS 
40 Éra 
45 2@ 49 
40 
2E 
as 2ù 
A> 14 
> AC 
20 & 
1%. 1% 
27. GP 
1a 


LANGAGE . 
ET.IHFOR 
MATIGLUE. — Trois caractères ASCII au lieu de 

trois nombres hexadécimaux, 

pour remplacer le mot INFORMATIQUE 
par le mot INFORMATION. Ils sont 
précédés par un point. 


om 
no M x Po lo & Pi 


RU de Pin M 


& 0 
AS 24 
zx 

as 

5 &s 


CRC CE 
5 ON 5 CA Pi Lo Pa 


Eee © 


PATIENTEZ UN INSTANT. SUR 
Champ ASCII 
Champ HEXA 


Numéros des premiers octets 
de chaque ligne (ici, page 1 
du bloc). 


138@ IF HS>TSCHP> THEN NS=0 3: NP=NP+1 
1398 IF NP>3S THEN PRINT"'ÆIN OU DISQUE ATTEINTE ":GQOTQO 146@ 
1488 3: 
141Q PRINTEF$:PRINT'SUITEr PISTES" > NP" S'SECT "3 NS» "SU 0 >OK DRIOIRBI" ; 
1429 INPUTRS :R$#=LEFT#ERS, 1 
1439 IFR$="Q"THEN 608 
144@ IFRS<S'"N"THEN 1418 
145Q : 
146Q PRINTEF$:INPUT'UN AUTRE SECTEUR <O/N2 EMOIRBI' RS 
147Q IF LEFT#<R$,1)="0O"THEN S4@ 
148Q RETURN 
143@ 3 
1S5@@ END 
READY - 


en Cours de traitement, 


Explications du programme 


Lignes 170 à 260 : initialisations diverses avant déroulement du programme princi- 
pal. Les lignes 220 à 250 peuvent exiger des modifications avec les disquettes du type 
3000 ou 8000 sur lesquelles le nombre de pistes/secteurs n’est pas exactement le même. 

Lignes 320 à 360 : routine classique de recherche des erreurs disque. 

Lignes 380 à 440 : deux routines de conversion fréquemment employées par le pro- 
gramme. Les sous-programmes sont placés en tête de programme, ce qui permet de 
gagner quelques centièmes de seconde lors de chaque appel ! 

Lignes 460 à 510 : dernière routine, celle qui transforme les 256 octets en 32 chaînes 
placées en tableau. 


Lignes 530 à 580 : début du programme principal, introduction des numéros de piste 
et de secteur à analyser. 


Ligne 610 : réservation d’un buffer pour le transfert des données en provenance de 
la disquette. 

Ligne 640 : positionnement de la tête de lecture à l’endroit choisi. 

Lignes 660 et 670 : les deux premiers octets qui représentent les numéros de piste 
et de secteur suivants sont extraits. Cela permettra d’indiquer à l’utilisateur où se trouve 
la suite du bloc qu’il a choisi de traiter. 

Lignes 780 à 850 : l’affichage de la première page se fait sur l’écran. L’appui sur 
‘+?’ permet le changement de page, tandis que la barre d’espace est utilisée pour sélec- 
tionner le mode “MODIFICATION”. Enfin, ‘‘F”’ fait sortir du mode affichage, pour 
passer à la suite. 

Lignes 870 à 960 : la routine de modification offre trois options, la modification 
proprement dite en mémoire centrale, le retour au mode affichage et la réécriture du 
bloc sur la disquette. La ligne 950 prend les chaînes sur l’écran après modification(s). 

Lignes 1000 à 1080 : ici, les chaînes entrées sont converties en caractères qui seront 
affichés avec elles à droite de l’écran. 

Lignes 1100 à 1140 : en cas d’erreur, le retour à la case départ est permis. 

Lignes 1160 à 1320 : la réécriture du bloc sur la disquette peut avoir lieu ; elle se 
déroule avec affichage simultané des chaînes à l'écran, page après page. La ligne 1230 
repositionne le pointeur de bloc (dans le buffer réservé) sur le premier octet. La ligne 
1310 permet l’écriture sur la disquette, via le buffer, en direction de la piste et du sec- 
teur en cours. (U2 est l’équivalent de B-W, avec la même syntaxe d’utilisation.) 

Lignes 1340 à 1480 : l’utilisateur peut poursuivre ses investigations sur le bloc sui- 
vant, qui est soit celui dont les numéros de piste et de secteur ont été mémorisés, soit 
celui qui lui succède immédiatement sur le support physique. Ce sera le cas si les numéros 
de piste ou de secteur sont illégaux. Le programme s’arrête si le choix est négatif. 
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ne 


ques, on peut éviter des recherches fas- 
tidieuses de codes hexadécimaux en 
introduisant le caractère désiré dans les 
lignes d’'INPUT. La première contrainte 
est alors d’inscrire un point devant le 
caractère ; la seconde, de ne pas taper 
de virgules, deux-points ou guillemets 
(pour la raison énoncée plus haut). La 
figure ci-contre (Image d’un bloc en 
cours de traitement) aide à mieux com- 
prendre ce processus. 


Attention à ne pas 


tout perdre 


Dans tous les cas, il ne faut pas 
oublier de frapper les espaces qui ser- 
vent de séparateurs entre les codes. 


Lorsque la série d'INPUT est termi- 
née, le programme demande une con- 
firmation. Si une erreur subsiste, il est 
encore possible de remonter en haut de 
la page et de corriger. L’appel de la page 
suivante s’effectue par l’appui sur la flè- 
che gauche (+), et le processus se pour- 
suit selon le même principe. 


Dès que la page a été entièrement trai- 
tée, le programme effectue une analyse 
des lignes et affiche la nouvelle traduc- 
tion ASCII, ce qui permet une vérifica- 
tion plus efficace. La modification n’est 
cependant effective que dans la 
mémoire centrale. Sur la disquette, la 
modification intervient seulement si le 
choix en est fait, auquel cas l’écriture est 
irréversible, et le contenu antérieur du 
secteur traité irrémédiablement perdu. 
Heureusement, vous avez pris soin de 
conserver à l’abri un double de votre 
disquette ! Il ne faut pas oublier, en 
outre, d’enlever l’étiquette de protection 
en écriture sur la disquette de travail. 


Entièrement en Basic, ce programme 
est un peu lent. Bien évidemment, il 
aurait été plus rapide s’il avait été écrit 
en langage-machine. Notre choix a été 
avant tout de rester simple et compré- 
hensible. Mais il vous est toujours pos- 
sible d’ajouter une routine permettant 
écriture des blocs sur une imprimante, 
en vue de conserver une trace du travail 
effectué et du contenu des disquettes. 
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PASCAL 


_ EST CONTAGIEUX : 
BASIC SE STRUCTURE (Il) 


ANS le précédent numéro de LIST, nous avions évoqué les avantages 
du Basic structuré, Nous avions insisté sur l'utilité des fonctions 
et des procédures, Ce mois-ci, nous nous penchons sur les structures 


itératives et sur les tests, 


Dans pratiquement tout pro- 

gramme se trouvent des instruc- 
tions devant être exécutées deux fois ou 
plus. Le plus souvent, on dispose de tel- 
les instructions dans une boucle dont le 
nombre de répétitions est contrôlé par 
une ou plusieurs variables nommées 
indices de boucle. La boucle ne sera par- 
courue, c’est-à-dire les instructions qui 
la composent ne seront exécutées que si 
les indices vérifient certaines conditions 
programmées sous forme de tests don- 
nant le résultat vrai ou faux. 


On peut démontrer que toute boucle 
peut se programmer à l’aide des deux 
structures suivantes, et d’elles seules : 
e FAIRE instructions JUSQU'’A condi- 
tion VRAIE (voir organigramme 1) ; 
e TANT QUE CONDITION VRAIE, 
FAIRE instructions (voir organigram- 
me 2). 

En Basic, ces deux types de boucles 
s’écrivent respectivement : REPEAT... 
instructions UNTIL condition, et 
WHILE condition DO... instructions. 
WEND (WEND servant simplement à 
indiquer la fin des instructions à 
exécuter). 


A ce stade de l’explication, on peut 
se demander ce qu’il en est de la boucle 
FOR...NEXT. L’a-t-on oubliée ? En 
fait, cette boucle est inutile, puisqu’elle 
n’est qu’un cas particulier de 
REPEAT...UNTIL. Pour s’en convain- 
cre, on examinera les deux programmes 
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suivants qui produisent les mêmes résul- 
tats. En dessinant l’organigramme de 
lun et de l’autre, il sera facile de se con- 
vaincre qu’ils sont identiques du point 
de vue algorithmique. 

10 FOR 1=0 TO 10 STEP .5 

20 : PRINT I 

30 NEXT I 

et 

10 1-0 

20 REPEAT 

30 : PRINT I1:1-1+.5 

40 UNTIL I > 10 


A titre d'illustration des différents 
types de boucles, on se reportera au pro- 
gramme calculant les valeurs exactes des 
coefficients du binôme pour n et p infé- 
rieurs à 9999999 (liste n° 1). 


Pour vos boucles, 


attention aux nœuds 


Ce programme peut être adapté à tout 
type de Basic à condition de remplacer 
les appels de procédures par des 
GOSUB, les ENDPROC par RETURN 
et de programmer directement les bou- 
cles REPEAT et WHILE par des tests 
et des GOTO. Si le lecteur a bien com- 
pris le fonctionnement des deux orga- 
nigrammes présentés plus haut, cela ne 
devrait lui poser aucun problème. 


On remarquera que, pour P=0, les 


boucles WHILE-WEND des lignes 290 
et 420 ne sont pas parcourues. Étudions 
plus particulièrement la seconde d’en- 
tre elles. Le Basic, explorant le pro- 
gramme, arrive ligne 420 avec P=0 et 
J=2, trouve une condition fausse et 
doit donc chercher le WEND correspon- 
dant, qui se trouve à la ligne 520. Il 
devra donc explorer les lignes suivant la 
ligne 420, sans se laisser tromper par le 
WEND de 500, associé au WHILE de 
480. II me semble que c’est ce problème 
de recherche, a priori compliqué, qui 


Organigramme 1 : 


REPEAT...UNTIL 
Dans tous les cas, les instructions 
seront exécutées au moins.une fois. 


Instructions 


Condition ? 
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- Boucle désormais inutile à nourrir programmée 
 : pour s'en aller mourir loin de sa tribu 


358 
Liste 1 368 
Calcul des coefficients d’un binôme 3270 
Programme en Basic structuré (MZ-700) 380 
Auteur Bernard Kokanosky 
Copyright LIST et l’auteur 330 
420 
19 PROC"Init" 419 
26 + PROC PE?) 322 
5 a 430 
40 : PROC'Num=n(n-1)...(n-p+1)" 448 
| 58 : PROC'"'C=Num/p2" as@ 
t 69 : PROC"'Resultat" 46e 
29 : PRINT:PRINT"Termine 9":PRINT 479 
89 UNTIL @ 480 
| SUR TS 498 
| 100 DEF PROC'"Init" 500 
119 DIM AC255) :H-1200008:CLS 512 
12Q PRINT"CALCUL DES CCn,p)" 529 
530 PRINT "=== "PRINT 532 
148 ENDPROC 549 
159 rs n nn Re RRRR RRRRR RRRRRRRRR RNR RRR R A 559 
160 DEF PROC'"'n,p=7" 56@ 
178 REPEAT _ 50 
188 INPUT '"n="3N 
198 UNTIL N>2 AND N=INTCN) 589 
28Q REPEAT 590 
218 INPUT '"p=" ;P 6ea 
228 UNTIL P>=@ AND P=INTCPJ AND P<=N 618 
239 PRINT "CC"3N3","3P3"2)="; 620 
240 IF P>N/2 LET P=N-P 63a 
258 ENDPROC 648 
268 rss re nr en RRR RRRRR RRRR RRN R RRA  Re 658 
270 DEF PROC'Num=ntn-1)...(n-p+1)" 668 
280 M=2:A(B)=1:J=N-P+1 670 
29@ WHILE J<=N DO 68a 
300 R=Q 
312 : FOR K=Q TO M 
320 A=ACKIXIJ+R 
330 R=A DIU H:ACKJ=A MODULO H 
348 NEXT K 
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RE LL =. 


Organigramme 2 : 
WHILE...DO...WEND 

Si la condition n'est pas remplie, 
les instructions ne sont pas exécutées. 


Condition ? 


Instructions 


IF R>O LET M=M+1 :ACMI=R 
J=J+1 
WEND 
ENDPROC 
DEF PROC'"'C=Num/p9" 
J=2 
WHILE J<=P DO 
R=Q 
FOR K=M TO @ STEP -1 
ACKJ=ACKI+RXH:R=ACK] MODULO J 
ACKIJI=ACK) DIU J 
NEXT K 
WHILE ACM)J=Q DO 
M=M-1 
WE ND 
5: J=J+1 
WE ND 
ENDPROC 
DEF PROC'"'Resultat" 
A$=STRÉCACM)I):L=LENCAS) 
IF L>3 AS=INSCAS,L-3,L-2," ") 
PRINT À$; 
IF M>Q PROC'"Suite" 
ENDPROC 
DEF PROC'"Suite" 
FOR J=M-1 TO Q STEP -1 


A$=STR$(A(JI):LE=LENCAS) 
MHSTRINGS(G-L,"2")+A$ 
PJ 


A$=" 

PRINT IN$CA$,4,5," 
NEXT J 
ENDPROC 
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LANGAGE 


PASCAL EST CONTAGIEUX : LE BASIC SE STRUCTURE (1) 


Etat 1 
il zone PROC | 
Le _ 0 
Etat 2 
Etat 3 
zone REPEAT 
30 
Etat 4 
zone PROC zone REPEAT 
40 30 
Etat 5 
zone REPEAT| zone PROC zone REPEAT| 
180 | 40 30 
Etat 6 
zone PROC [zone REPEAT! 
40 30 
À 


Etat 7 


résultats intermédiaires lors de ses cal- 
culs (nous ne nous intéresserons pas à 
cet aspect) et surtout des « zones 
FOR », des « zones REPEAT », des 
« zones WHILE », des « zones PROC 
ou FN ». Nous allons suivre le Basic 
lors de l’exécution du programme. 

e Ligne 10: appel de la procédure 
« Init ». Le Basic cherche donc cette 
procédure et la trouve en ligne 100. Il 
stocke dans la pile un pointeur indi- 
quant l’endroit où il devra revenir. Pour 
simplifier, disons qu’il stocke 20, c’est- 
à-dire le numéro de la ligne suivante. On 
saute alors à la ligne 100, et la pile Basic 
est dans l’état n° 1 (voir ci-contre). 

e Ligne 100 à 140 : exécution de la pro- 
cédure. L’instruction ENDPROC est 
rencontrée à la ligne 140. Le Basic con- 
sulte alors la pile, trouve bien une zone 
PROC (en son absence, on aurait eu 
droit à une erreur), reprend le pointeur 
20, élimine la zone PROC et retourne 
en ligne 20. La pile est alors vide (état 2). 


zone FOR zone WHILE | zone PROC /z 
450 420 60 


one REPEAT 


CS 


Les états successifs de la pile Basic 


explique l’absence quasi générale de la 
structure WHILE-WEND dans les dif- 
férentes versions du Basic standard. 


Ce genre de problème ne peut pas se 
poser avec FOR-NEXT ou REPEAT- 
UNTIL puisque le test se faisant en fin 
de boucle, sa position est connue. On 
peut cependant se demander comment 
le Basic procède pour retrouver le début 
de la boucle. Pour donner une idée sim- 
plifiée du fonctionnement interne d’un 
Basic structuré, je prendrai l’exemple de 
celui que jai écrit pour le Sharp 
MZ-700. 


Voici une carte simplifiée de la 
mémoire de l’ordinateur lors du fonc- 
tionnement d’un programme : 


Programme de| Noms des 
l'utilisateur variables 


Valeurs des 
variables 


e Ligne 20 : en rencontrant REPEAT, 
le pointeur stocke dans la pile le poin- 
teur situé derrière REPEAT (ici, la ligne 
30) et il passe à cette ligne 30. La pile 
est dans l’état 3. 


e Ligne 30 : saut à la ligne 160 avec une 
pile dans l’état 4, 

e Ligne 170 : REPEAT de nouveau, et 
donc passage à la ligne 180 avec une pile 
dans l’état 5. On entre N=5, par exem- 
ple, en réponse à l’INPUT. 

e Ligne 190 : la condition du test étant 
vérifiée, la zone REPEAT est éliminée 
et le Basic passe à la ligne 200 avec une 
pile dans l’état 6. Si l’on avait entré —5, 
la condition n’aurait pas été satisfaite 
et le Basic, reprenant le bas de la pile, 


Pile du micro- 
processeur 


i_ 


Le fonctionnement interne du Basic 
structuré est presque exclusivement basé 
sur la pile Basic que je nommerai pile 
tout simplement. Le Basic y stocke des 
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Les deux limites tracées en pointillé (valeurs des variables, et pile Basic) ne sont pas 
fixes : elles se déplacent durant l'exécution du programme. 


y aurait trouvé une zone REPEAT lui 

permettant de revenir à la ligne 180. 
Chacun est invité à continuer un peu 

cette étude et à vérifier, par exemple, 


que lors de l’exécution de la ligne 450 
(procédure appelée par la ligne 50), la 
pile est dans l’état 7. On remarquera 
que, pour la zone WHILE, c’est 420 qui 
doit être stocké puisque le Basic doit 
réévaluer la condition à chaque tour de 
boucle. De plus, dans une zone FOR, 
il faut stocker aussi le nom de la varia- 
ble (indice de la boucle), la valeur finale 
et le pas d’incrément de la boucle. 


Il faut soigner 


ses sorties 


Ce mode de fonctionnement explique 
pourquoi, en Basic structuré, toute sor- 
tie de boucle par un GOTO et toute sor- 
tie d’une procédure autrement que par 
ENDPROC sont interdites : les sorties 
de ce type laissent en bas de la pile une 
zone parasite et le programme s’arrête 
tôt ou tard sur un message d’erreur. 


Un Basic standard admet générale- 
ment sans broncher une sortie de ce 
genre car son fonctionnement ne repose 
pas sur une seule pile, mais sur plusieurs 
piles distinctes contenant respectivement 
la zone FOR, la zone GOSUB et, si elles 
existent, les zones REPEAT et WHILE. 
Le programmeur prend cependant le ris- 
que de voir son programme se compor- 
ter de façon bizarre sans qu’un quelcon- 
que message d’erreur ne puisse l’alerter. 


Étudions maintenant les tests qui per- 
mettent d’orienter le déroulement du 
programme selon les valeurs prises par 
certaines variables. Même dans les Basic 
structurés, on trouve rarement autre 
chose qu’IF...THEN...ELSE dont le 
grand défaut est que toutes les instruc- 
tions doivent être écrites sur la même 
ligne, ce qui conduit souvent à des pro- 
grammes illisibles, un comble pour un 
langage structuré ! 


Parfois, il existera une structure plus 
complexe : IF...ELSIF...ELSIF... 
ELSE...ENDIF pouvant s'étendre sur 
un nombre quelconque de lignes et bien 
délimitée par IF (début) et ENDIF (fin). 
En pratique, ELSE peut être absent, 
comme d’ailleurs ELSIF qui peut aussi 
apparaître un nombre quelconque de 
fois. Bien entendu, les programmes sont 
alors assez gourmands en mémoire, 
mais il y est beaucoup plus facile d’y 
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fichier séquentiel sur cassette), apparaît 
un laid ‘‘PRESS PLAY ON TAPE’’, 
qu’on le veuille ou non, à moins que, 
sentant venir le vent, l’utilisateur ne se 
soit précipité, index frémissant, pour 
enfoncer la touche lecture avant qu’on 
ne le lui demande. 


L’astuce va donc consister à deman- 
der à l’utilisateur avant l'OPEN d’ap- 
puyer sur la touche ; et pendant qu’on 
y est, à le lui demander en français : 


5000 PRINT ‘‘APPUYEZ SUR LA TOUCHE PLAY DU MAGNETOPHONE” 


5010 WAIT 1, 16, 16 
5020 PRINT ‘‘D’ACCORD”’ 
5030 OPEN … 


et la vieille dame du Quai Conti (Non ! 
pas Yourcenar, les quarante !) d’ap- 
plaudir bien fort. 


Etalonner 


le programme 


Une autre utilisation de cette astuce 
consiste, par exemple dans un pro- 
gramme qui gère un seul fichier sur cas- 
sette, à mettre le fichier sur la même cas- 
sette que le programme, à distance res- 
pectueuse. Les choses se passent ainsi : 
le programme principal, dans la partie 
consacrée à l'écriture du fichier, 
demande de rembobiner la cassette 
jusqu’à son début, puis d'appuyer sur 
STOP. Il demande ensuite d'appuyer 
sur la touche « marche avant rapide ». 
Dès que cette touche est enfoncée, il 
lance un chrono et, lorsque ce chrono 
atteint le temps nécessaire pour que le 
programme principal soit dépassé sur la 
cassette, il coupe le moteur et demande 
d'appuyer sur la touche STOP du 
magnétophone avant de procéder à 
l'écriture. 


50050 WAIT 1, 16, 16 

50060 PRINT ‘‘D’ACCORD”’ 
50070 TIS = ‘0000007? 

50080 IF TI < XX THEN 50080 


50120 WAIT 1, 16 
50130 PRINT ‘‘D’ACCORD” 


50170 WAIT 1, 16, 16 

50180 PRINT ‘‘D’ACCORD”’ 
50190 OPEN 1, 1, 1, ‘“‘ZOZO” 
etc. 
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49999 REM *** POSITIONNEMENT DE LA CASSETTE *** 
50000 PRINT ‘‘METTEZ LA CASSETTE A SON DEBUT’’ 
50010 PRINT ‘‘PUIS FRAPPEZ RETURN.” 

50020 GET RS :IFR$ < > CHRS$(13) THEN 50020 

50030 PRINT ‘‘ENFONCEZ LA TOUCHE ’AVANCE RAPIDE’” 
50040 PRINT ‘DU MAGNETOPHONE.”’ 


50090 POKE 192, 7 : POKE 1, PEEK (1) AND 223 OR 32 
50100 PRINT ‘‘ENFONCEZ LA TOUCHE ’STOP’” 
50110 PRINT ‘‘DU MAGNETOPHONE.’””’ 


50140 REM *** ECRITURE DU FICHIER *** 
50150 PRINT ‘‘ENFONCEZ LES TOUCHES ENREGISTREMENT’ 
50160 PRINT ‘‘ET LECTURE DU MAGNETOPHONE.”” 


WAÏT n rest pas une instruction présente s sur: toutes néétihes: et si re est pré- ; 
sente dans le Basic de Commodore, elle n’est pas souvent : utilisée. IE est vrai que c "est 
une instruction booléenne en diaaaable, quoâ ! A 
Elle fonctionne Sélon la syntaxe WAIT A,B,C où À iéieeaté une dass et-B.et 
C deux nombres compris entre 0 et 255, C étant facultatif.et valant 0 par défaut. En. 
fait, l'ordinateur comprend : IF (PEEK(A) XOR C) AND Best différent de 0 THEN | 
je continue, sinon, je boucle et j'attends obstinément qu’il cesse d’être nul comme ça. | 
XOR, c'est l'opération de OÙ exclusif ; AND, c’est le ET logique, 


Sur le Commodore 64; le bit 4 de l’octet ï est. peur à la détection d’une touche: 
enfoncée sur lé magnétophone; et le bit 5 au contrôle du moteur, 
Si on veut attendre que toutes les touches du magnétophone. soient relevées, il 190 
que le bit 4. de l’octet contenu dans l'adresse 1:soit à 1. 
Essayez d enfoncer a touche PLAY de votre lecteur de cassette et ke Ps PRINT 
PEEK(1) : vous ‘obtenez 7.en temps normal. Si PEEK(1) vaut 7, comme là représenta- | 
tion de 7 sur un octet est SPORE Il'et celle de 16:est 00010000, alors 7 AND 16 devient 
sur un: per HÉDRE } : É ; 


“2 PARU RRRNIATMENE rt 101U à 
1146 HITS ET 00080000! 
TAND 16: 11127 00000000: : 


Le résultat de 7. AND 16 est: nul : WAIT. 1, 16 fait boucler le: brogramme: 
Appuyez. t te STOP: ‘et refaites PRINT PEEK(1) : vous ie 55. 


Si, en Pétat actuel des choses, on sombe sur. un WAIT. 4, 16, + o 
RASE : à :001 10111 
6: : 00010000: 

55 XOR ié:: 00100111: 
:{55XOR 16) AND 16 ‘00000000 AE 
Le résultat ést si ‘et le programme boucle. Mais si on per une touche, les bits 
4ets PRE à zéro (l’octét: sant formé de huit bits numérotés : ri et fon ai: 

fi i 00000111: 

:::00010000 
2100010111: 

; HT RAS & XOR 16) AND. 16 BH 00010000 
Le: césiiltut st non-nul et ke programme peut: 


L'important dans l’histoire est donc 
d’étalonner le programme ainsi modi- 
fié pour fixer la valeur représentée par 
XX à la ligne 50080. Cette valeur est 
comparée à celle de TI. Rappelons que 
chez Commodore, deux variables réser- 
vées sont consacrées à l’horloge interne. 
L'une, TI, représente l’heure exprimée 
en jiffies ou 1/60° de seconde. On peut 
la lire, mais pas lui affecter de valeur : 
essayez de faire en mode direct TI=0 
ou TI=12, vous aurez du SYNTAX 
ERROR autant que vous voudrez. Pour 
remettre TI à zéro, il faut passer par la 
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MISEZ P'TIT OPTIMISEZ 


FONCTIONS 
HYPERBOLIQUES 


Programme pour 
:HP-41C 
Auteur Alain Goubault de 
 Brugière 
Copyright LISTet l’auteur 


$ I jongler avec la pile opérationnelle de votre HP-41C, 
traquer la milliseconde perdue et rogner le moindre 
octet est votre pain quotidien... Ou si, à l'inverse, vous 
échappe parfois un peu de la subtile recherche des 
programmes en Notation Polonaise Inverse... 

Alors voici qui doit vous intéresser, En matière 
de programmation, est-on jamais certain d’avoir 
fait aussi bien que possible ? Dans cette rubrique, 
les défis — vos défis — se succèdent : des 
programmes toujours plus courts, plus rapides... 


GieLEL “CH 
ge CF dé 
83 CTO 88 


Et les records vivent ! 


Cosinus, sinus, tangente et fonc- 

tions inverses, c’est bien. Modes 
degrés, radians ou grades, ne sont pas 
mal non plus... Mais les fonctions 
hyperboliques, c’est mieux ! Pour- 
quoi ? Parce que la HP-41C ne les pos- 
sède pas d’origine, bien sûr, et nous 
offre là le prétexte d’une optimisation. 


Mon programme offre cinq fonctions 
hyperboliques (sinus, cosinus, tangente, 
amplitude et sécante) et leurs inverses — 
rien que de très classique — mais n’uti- 
lise aucun registre de mémoire. Seule la 
pile opérationnelle est employée et tota- 
lement sauvegardée. Les anciens Y, Z 
et T demeurent et la valeur initiale de 
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l'argument (ex-X) peut être récupérée 
dans Lastx : tout se passe comme si les 
fonctions nouvelles étaient micropro- 
grammées, au temps de calcul près. Une 
fois assignées à des touches du clavier, 
elles donneront une parfaite illusion. 


Coût total du programme : 215 
octets, Labels compris (NDLR : c’est un 
record de. longueur pour Misez 
p'tit !). Mode d’emploi : aucun. Cha- 
que fonction hyperbolique s’appelle de 
son nom d’un XEQ, son argument étant 
en X où se trouvera aussi le résultat au 
retour. 


Alain GOUBAULT de BRUGIÈRE 


Fi 
T5 “AGE” 
SieLBt "ACH" 
Jè ES &3 
3 SE 68 
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QUI DIT MIEUX ? 


XTREMUM OPTIMUM EST. Telle pourrait être la devise de Misez 

p'tit : l’extrême est optimum... LIST n° 8 a lancé en défi la recherche 
de l’extremum d’une équation du second degré : trouver l’X qui maximise 
ou minimise, sans distinction, le résultat Y (voir graphe). 


Comme promis, sur le même thème, voici le défi suivant : saurez-vous déter- 
miner si l’extremum trouvé est un maximum ou un minimum ? Le programme 
de référence, d’Olivier Byrde, occupe 14 octets (sur 10 pas de programme) 
et trouve l’extremum de 3X2—4X +5, soit 2/3, en 32 centièmes de seconde. 
S’il s’agit d’un maximum, le flag 0 est armé, sinon (c’est le cas) baissé. Les 
coefficients sont introduits en Pile dans l’ordre c, b, a mais a, b, c serait plus 
agréable. Bien sûr, aucun registre de mémoire n’est employé. 


On détaillera le mois prochain, le programme vainqueur, sa méthode et 
| — Surtout — la signification des dérivées première et seconde illustrée grâce 

a | à la résolution d’un tel problème de recherche d’extremum. Une bonne et 
È 


ultime occasion de réviser à l’approche des examens. 


Jean-Christophe KRUST 


Y vers + l'infini 
maximum 


w] 
Er] 


ae] 
+ 
PTT En CU PT AN men 


MA D oo 
“sn 


en dE 


fs 


minimum 


vers - jJinfini | 


ALORS KOPAGUE 
RAS Tin 
PEEK PEUCHERE 


VE Panisse ARRETE 
TES TRICHERIES 
SIL TE PLAIT 
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LE ROUGE 
ET LE NOIR 
KR LE TAPIS VERT 


I vous n'êtes pas un pilier de casino, le mot 
« martingale » ne fait pas partie de votre 


vocabulaire usuel, Le dictionnaire le définit 


comme suit (au figuré) : « système de jeu qui 
prétend assurer un bénéfice par une augmentation 
progressive de la mise ». Et si c'était vrai ? 

Rien ne vous empêche de le vérifier 

yous-même sans risquer un sou. 


A la roulette, il y a 37 cases numé- 

rotées de 0 à 36. Parmi ces cases, 
18 sont rouges et 18 noires ; la dernière 
(le zéro) n’est ni rouge ni noire. Si un 
joueur mise rouge et que le rouge sort, 
il reçoit le double de sa mise. Mais si 
le noir ou le zéro sort, sa mise lui est 
confisquée par la banque. 


Si ce joueur applique la martingale la 
plus simple, après chaque coup perdant, 
il rempile en doublant systématique- 
ment sa mise précédente. Comme le 
rouge sort tout de même de temps en 
temps, en moyenne presque une fois sur 
deux dans le jeu décrit, il est assuré de 
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recevoir le double de sa dernière mise 
après 1, 2, 3, ..…, X coups. 

Pour y voir plus clair, analysons la 
série suivante : noir - noir - rouge, avec 
une mise initiale d’une unité (une fois 
10 francs ou 1 fois 1 000 francs selon 
l’épaisseur de votre portefeuille). Nous 
avons donc misé 1 + 2 + 4 = 7 francs 
et nous recevons 2 X 4 = 8 francs, soit 
un bénéfice égal à la mise initiale. Et 
il en sera de même si, par malchance, 
le rouge ne sort qu’au seizième coup ! 

Et si je triplais la mise chaque fois que 
je perds ? Ce serait alors sensationnel : 
à la première sortie du rouge, le gain 


serait égal à la demi-somme de la mise 
initiale et de la mise finale, soit, pour 
la série déjà citée, 5 fois la mise ini- 
tiale... Mais il y a évidemment un os. 


. Pour l’expliciter, reprenons la série 


noire, la série toujours possible de 16 
sorties du noir successives qui exigerait 
une mise totale de 1 + 2 + 4 + 8 + 
16 + €...) + 65536 = 2x 26 — 1 — 
131 071 fois la mise initiale. Même si 
vous disposez de cette somme (il y a cer- 
tainement un prince du pétrole parmi 
nos lecteurs), le croupier opposera son 
veto en faisant valoir le règlement 
interne qui prévoit une mise maximum. 


Simuler la perte 


d'une chemise 


Par ailleurs le casino doit couvrir ses 
frais et surtout remplir les caisses de 
l'État. En plus des 36 cases rouges ou 
noires, il y a toujours au moins une case 
zéro, de sorte que la probabilité de gain 
est au mieux de 18/37 (au lieu de 1/2), 
soit une perte statistique de 1/37 des 
mises cumulées. 


Le programme proposé est une simu- 
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ER 


Rosé e RS D AS ENS DRE ENS d Ne 


La martingale 
Programme pour TRS 80 mod. 1 ou 3 
Auteur Roger Brousmiche 
Copyright LIST et l’auteur 


2? LA MARTINGALE 
da 

47 CONFIGURATION: MODELE 1 OU 3 
57 4K A 48K, DISQUE OU CASSETTE 
4” 

7° 

8 ? 


(C) LIST ET ROGER BROUSMICHE 


18 RANDOM : CLEAR 188 : CLS 

20 PRINT TAB(6)"R O'ULETTE 
30 ’------—--pntree des donnees 
4Q PRINT : PRINT “MISE INITIALE = 1", : MT=0 

59 INPUT “EN POCHE ‘ÿE 

68 INPUT "MULTIPLICATEUR DE LA DERNIERE MISE EN CAS DE PERTE ‘5K 

78 INPUT "LIMITE DU GAIN PAR PARTIE “iLA % LI=E+LA 

80 INPUT "NOMBRE DE PARTIES "3;NP : M=Q : C=Q : 6=0 

98 INPUT “NOMBRE DE ‘ZERO’ "5NX : NZ=364NX : Bi=18 

18@ INPUT “AFFICHAGE (P)ARTIEL OÙ (T)OTAL, ENTREZ *P' OU *T’ ‘5P# 

110 IF P$="T* THEN PRINT “APPUYEZ SUR LA BARRE D'ESPACE POUR GELER L’ AFFICHAGE" 


BINAIRE" : GOSUR 368 


128 *-—--------corps du programme 
138 N=06 : MI=1 : M=M+l : EP<E : IF MXNP GOSUB 278 : GOTO 40 
148 NEN+1 


158 B=RNDINZ) : IF B>B1 THEN B=0 : GOTO 188 

168 B=1 : EP=EP#MI : GOSUB 220 : IF EP>=LI GOSUB 240 : GOTO 130 

178 MI=1 : GOTO 140 

188 IF MID=EP GOSUB 248 : GOSUB 270 : GOTO 4@ 

190 EP=EP-MI : GOSUB 220 : MI=KaMI : IF MLHEP THEN MI<EP+#1 : GOTO 189 

288 GOTO 149 

218 *—----—--affichages 

220 MT=MT4MI : C=C+1 : IF P$="T" PRINT NiB, INT(MI+.5),INT(EP-E+,5), INT(EP+,5) 

230 ZI$=INKEY$ : IF PEEK(14591) THEN 238 ELSE RETURN 

240 G=GHEP—ÆE : PRINT Ci" COUPS", M5" PARTIE(S)", *GAIN" 3 INT(G+.5), "MISES"; INTUMT4+.5) : FOR I=1 TO 508 : NEXT 
250 RETURN 

268 *----------fin du jeu 

278 PRINT "Mise initiale = { ,; en poche ="E", multiplicateur ="K 

288 PRINT "Limite gain ="LA",*NP'parties ,"NX°zero(s)" 

298 PRINT C'coups , mises totales ="; INT(MT+,5); 

300 IF G<B THEN PRINT ", perte finale ="; ELSE PRINT *, gain final =*; 
310 PRINT ABS(INT(G+0.5)) 

320 PRINT "Pertes statistiques ="3;INT(MTENX/N1+0.5} 

38 IF MENP PRINT “Vous avez du quitter le jeu au cours de La partie #"5M 
348 PRINT : INPUT "<ENTER> pour un autre essai, ou (BREAK) pour terniner *:22$ : 
350 *----—---—-presentation 

366 PRINT STRINGS (64,136) 

370 PRINT "51 VOUS ETES RICHE, VOUS POUVEZ ESSAYER :* 

380 PRINT *EN POCHE = 18 808 (FOIS LA MISE INITIALE)* 

390 PRINT "MULTIPLICATEUR DE LA DERNIERE MISE EN CAS DE PERTE = 2* 

408 PRINT NOMBRE DE PARTIES = 3@ (UNE PAR JOUR PENDANT UN MOIS)" 

418 PRINT "LIMITE DU GAIN PAR PARTIE = 28 (FOIS LA MISE INITIALE)" 

420 PRINT “ET VOUS SEREZ PROBABLEMENT ENCORE UN PEU PLUS RICHE..." 

430 PRINT : PRINT “MAIS SI VOUS ETES PAUVRE, AVEC EN POCHE 10@ FOIS LA MISE" 
448 PRINT *INITIALE, VOUS DEVREZ PEUT-ETRE ECOURTER VOS VACANCES..." 

458 RETURN 
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D, 


NOTRE  ÉTABLISSEMENT 
NE  CRAINT _ABSOLUMENT 
PAS LES AMATEURS DE 


MARTINGALES ! 


lation à l’écran des heurs et malheurs du 
joueur qui a opté pour une martingale 
de son choix. Il suffit d’entrer le pac- 
tole dont on dispose en début de jeu, le 
coefficient multiplicateur de mise, le 
nombre de parties à jouer, le gain maxi- 
mum par partie et le nombre de zéros 
de la roulette. L’écran affiche alors le 
numéro d’ordre du coup suivi de 1 ou 
0 (gagné ou perdu), de la mise, du gain 
et de la somme restant en poche. 


Le déroulement des opérations étant 
très rapide, on peut geler l’affichage en 
appuyant sur la barre d’espacement. Les 
résultats globaux sont affichés à la fin 
de chaque partie. 


En résumé, le scénario-type est le sui- 
vant : vous êtes en vacances et vous 
décidez de passer une heure chaque jour 
au casino local avec en poche une 
somme fixe. Vous commencez par miser 
un montant minimum que vous incré- 
menterez selon la martingale choisie jus- 
qu’au premier gain. 

Vous recommencerez avec la mise 
minimum et ainsi de suite jusqu’à ce que 
le bénéfice de la journée atteigne un 
montant prédéterminé. 


Et vous reviendrez le lendemain, sauf 
si, en cours de martingale, vous n’avez 
plus assez de plaques pour rempiler. 
Dans ce cas, vous rentrerez tranquille- 
ment chez vous en jurant de ne plus 
jamais mettre les pieds dans un casino. 
Plus jamais, c’est promis ? 


Roger BROUSMICHE 
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DU CANON X-07. 


LIST À TESTÉ 


E BASIC 


PRÈS plus d’un an d'existence, le Canon X-07 
n'a pratiquement pas vieilli. Ce véritable 
portable reste quasiment seul dans sa gamme de 
prix. Bien entouré (ses périphériques comprennent 
une interface vidéo), il est doté d’origine d’un 
Basic qui vaut le coup d'œil. 


Voici donc un engin qui fait partie 

des machines amusantes à utiliser. 
Ses possibilités d’extension sont un 
atout que bien d’autres pourraient lui 
envier. La version de base dispose de 8 
Koctets de mémoire vive, mais divers 
modules peuvent étendre cette capacité 
jusqu’à des valeurs plus conséquentes. 
L'écran à cristaux liquides est certes un 
peu étroit (4 lignes de 20 caractères cha- 
cune), mais il peut être complété par un 
affichage sur téléviseur plus confor- 
table. Port cassette, haut-parleur inté- 


gré, port série, port parallèle, port d’ex- 


tension, coupleur optique de transmis- 
sion. Mais qu’en est-il du Basic ? 


Ce Basic, intégré à la machine, est dis- 
ponible dès la mise sous tension. Le pre- 
mier message qui apparaît d’ailleurs à 
cet instant indique son origine : Micro- 
soft encore une fois. Il s’agit d’une ver- 
sion adaptée au NSC 800, le cœur de la 
machine (avatar du Z 80, version faible 
consommation : piles obligent), et il 
occupe 28 Koctets. Une taille promet- 
teuse ! 


Les calculs directs se font selon la 
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syntaxe habituelle du Basic. Ici, on ne 
retrouve pas certaines facilités offertes 
par d’autres machines de poche : la 
présence du PRINT ou du « ? » devant 
les calculs est impérative. Par contre, le 
petit animal est assez doué en calcul : 
il offre sans manipulation spéciale 14 
chiffres significatifs, ce que la taille de 
l’écran rend encore plus impressionnant. 


Cette qualité dans les calculs est due 
au fait que tous sont effectués en dou- 
ble précision, d’où une consommation 
mémoire plus importante. La notation 
scientifique couvre l’éventail de 1E — 62 
à 1E +62, ce qui n’est pas si mal. 


La bibliothèque des fonctions desti- 
nées aux manipulations arithmétiques et 
scientifiques de tous poils est tout à fait 
similaire à celle de n’importe quel autre 
ordinateur individuel. Les calculs trigo- 
nométriques se font exclusivement en 
radians. Les fonctions particulières peu- 
vent être créées par DEF FN. DEFINT 
et DEFSNG permettront l’économie de 
mémoire que la double précision a par- 
fois tendance à gaspiller. Parmi les 


Re 


fonctions classiques : FIX fournit la 
partie entière d’une expression, mais 
sans l’arrondir ; EXP rend l’exponen- 
tielle de l’argument associé, LOG rend 
le logarithme naturel (il n’y a pas de log 
décimaux), MOD rend le reste et X 
(Yen) le quotient des divisions entières. 


La machine effectue à la demande des 
calculs ou des conversions en octal ou 
hexadécimal. Deux fonctions logiques 
peu courantes sont enfin disponibles, 
qui sont XOR (OU exclusif) et EQV 
(équivalent). 


| Quatre types 


de variables 


Les variables maintenant ? Rien de 
neuf. Les noms des variables peuvent 
comporter beaucoup de caractères, mais 
seuls les deux premiers sont significatifs. 
QWERTY et QWYTRE sont un seul et 
même identificateur. D’aucuns trouve- 
ront cela gênant, mais n’oublions pas la 
taille de l’écran, la consommation de 
mémoire et l’augmentation du temps de 
frappe ! Les variables chaînes contien- 
nent peu de caractères, sauf si, par un 
CLEAR judicieux, vous leur réservez la 
place suffisante. Une chaîne est suscep- 
tible de contenir alors jusqu’à 255 vrais 
et bons caractères. 


STRINGS$ permet de constituer une 
chaîne de longueur définie. Les traite- 
ments de chaînes sont classiques et n’ap- 
pellent aucun commentaire particulier, 
si ce n’est l’existence de la fonction 
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Liste des mots j 


DATA 
DATES 
DEFDBL 
DEFFN 
DEFINT 
DEFSNG 
DEFSTR 
DELETE 
DIM 
DIR 


ELSE 
END 
EQV 
ERASE 
ERL 
ERR 
ERROR 
EXEC 
EXP 


FIX 
FN 


INSTR qui permet de rechercher l’oc- 
currence d’une chaîne dans une autre et 
qui fait souvent défaut sur des machi- 
nes bien plus grosses. Les variables 
peuvent être définis (par DEF xxx) 
comme entières, réelles simple ou dou- 
ble précision, ou encore comme chaînes, 
et reconverties en d’autres types par 
CINT, CSNG et CDBL. Enfin, DIM 
autorise l’usage de variables indicées. 


Si l’écran est petit, il a le mérite d’être 
adressable point par point. Aussi, des 
fonctions graphiques existent, et elles 
sont faciles à employer : CIRCLE, 
PSET, PRESET, LINE permettent de 
dessiner tout ce que l’on veut. POINT 
permet de tester l’état d’un point de 
l’écran. De plus, 62 caractères sont redé- 
finissables (FONT$). A noter que le jeu 
normal de caractères disponibles au cla- 


LINE INPUT 


PEEK 
LINE # 
LIST# * POINT 


LLIST POS 
FT PRESET 
LOAD? PRINT 
pe PSET 
LPRINT READ 

REM 
0 RESTORE 
où RESUME 

RETURN 
NEW RIGHT$ 
NEXT 


RND 
NOT RUN 
OFF 


SAVE 
ON SCREEN 
OR 


SGN 
OUT SIN 
OUT# 


START$ 
STEP 
STICK 
STOP 
STR$ 
STRIG 
STRING$ 


TAB 
TAN 
THEN 
TIMES 
TKEY 
TO 

TR 


USING 
USR 


VAL 
VARPTR 


vier comporte de nombreux caractères 
semi-gräphiques, majuscules, minuscu- 
les (accentuées !), lettres grecques, 


Quelques-uns des 
caractères disponibles 
d'origine sur le X-07 


JIUUE 


slisl: 


= 


Left 


on ts 


se w 


sm) elialllil 


… 


Lu} 


dabalish nur 


symboles Katakana (écriture japonaise). 
Un cache plastique est d’ailleurs livré 
avec le X-07, destiné à être placé sur le 
clavier, pour indiquer la position de ces 
caractères. Tous sont inscrits dans une 
matrice de 6X8 points. Les octets qui 
définissent un caractère ont donc 6 bits ; 
nul n’est parfait. 


La gestion de l’écran en mode carac- 
tères est aisée avec LOCATE, qui per- 
met de positionner le texte, et PRINT 
USING, qui formate les éléments affi- 
chés. 

Les entrées de données sur la console 
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EE 


disposent de quelques possibilités : 
TKEY rend 0 ou — 1 si la touche choi- 
sie est enfoncée. STRIG est un peu simi- 
laire. STICK permet d’utiliser le pavé 
de commande du curseur comme un 
joystick. INPUT et INKEY$, plus clas- 
siques, sont évidemment présentes. Si 
l’on ajoute à cet éventail la possibilité 
de redéfinir 12 touches de fonction, et 
d’afficher leur contenu à l’écran en per- 
manence grâce à CONSOLE, on s’aper- 
çoit qu’il ne manque pas grand-chose. 

La numérotation des lignes s’étend de 
0 à 65529. Lignes qui peuvent compor- 


XOR 


TROFF 
TRON 


SLEEP 
SNS 
__SQR 


ter plus de 80 caractères, c’est-à-dire 
dépasser la capacité de l’écran, mais à 
condition d’utiliser l’interface télévi- 
seur. Dans le cas contraire, 79 caractè- 
: res sont le maximum. Attention, en cas 


 d’erreur, une ligne aussi longue ne 


: pourra plus être éditée : il faudra alors 


l la retaper. En fait, la taille maximum 
| réellement utilisable est de 60 caractè- 
| res, soit 3 lignes sur l’afficheur. L’édi- 
[| teur plein écran associé au pavé des qua- 


| tre touches curseur facilite les correc- 


| tions et la mise au point des program- 


| mes qui bénéficie d’autres fonctions uti- 
les : TRON et TROFF bien sûr, mais 
aussi ON ERROR, RESUME, ERR et 
ERL, qui sont de précieux auxiliaires de 
débogage. 


Accès au 


langage-machine 


Les traitements de conditions dispo- 
sent du ELSE : c’est un bon point. Par 
contre, les WHILE et UNTIL qui com- 
mencent à se répandre dans de nom- 
breux Basic manquent à l’appel, et c’est 
dommage. Le fameux CONSOLE, dont 
nous avons déjà parlé, permet de redé- 
finir le déroulement d’écran, la répéti- 
tion des touches, le BEEP qui accom- 
pagne leur enfoncement, le mode clavier 
(normal, graphique, numérique), et j’en 
passe... Pour la musique maintenant, 
sachez que BEEP est paramétrable en 
fréquence et durée : le haut-parleur 
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LIST A TESTÉ 


interne a un son quelque peu « informa- 
tique », mais c’est mieux que rien. 


Ceux dont le langage-machine est le 
péché mignon seront servis avec les 
EXEC, POKE, PEEK, USR et autre 
VARPTR qui vous ouvrent toutes gran- 
des les portes du système. Seule manque 
la littérature sur son organisation 
interne : le manuel est trop succinct sur 
ce point. 


Le X-07 peut limiter ses services à 
ceux d’une horloge intelligente, à met- 
tre dans votre porte-documents ou au 
pied d’un lit : il sonnera à l'heure dite 
et le jour prévu. On peut lui demander 
la date à tout moment : il répond dans 
sa langue maternelle en fournissant l’an- 
née, le mois et le jour. TIMES, DATES 
et ALMS$ sont les maîtres mots de ces 
fonctions. Le dernier est le plus com- 
plexe à programmer, maïs il autorise 
toutes les fantaisies, du style : me réveil- 
ler à 11 h 30 le dimanche et à 7 h les 
autres jours, ou encore : sonner toutes 
les trois minutes pour faire cuire les 
œufs à la chaîne. Bref, n’importe quoi ! 


Puisque le X-07 est électriquement 
autonome, et parce qu’il consomme très 
peu, les fonctions d’horloge continuent 
leur travail même lorsque la machine est 
arrêtée. C’est pour la même raison que 
les concepteurs de la machine ont prévu 
de conserver en mémoire, dans une zone 
spéciale dont la taille est fixée à volonté 
par FSET, les fichiers qui y auraient été 
placés. La commande DIR (le DIRec- 
tory des disquettes) permet à tout 
moment de connaître le contenu de cette 
zone : titres et espace occupé. SAVE et 


SUPER-LISTOSL QUEL EXT 
VE SECRET DE VOS SUER- 
-RouvoiRs? DITES? 


ET BIEN CEST TRES , 
SIMPLE MON GARCON CE, 
AVANT ToUT LA SUPER: 
MÉMOIRE DE MON ASSIS 
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LOAD permettent les transferts entre la 
mémoire de travail et cette zone de 
fichiers. Ces transferts s’effectuent à 
grande vitesse puisqu’aucun élément 
mécanique n’entre en jeu. Il s’agit donc 
en quelque sorte d’un « micro disque 
virtuel ». 


Un périphérique 


à la fois 


Lors de la mise en route, tout pro- 
gramme de la zone de travail reste prêt 
à l’exécution. Aussi, START$ pourra 
imposer à la machine d’exécuter celui de 
votre choix aussitôt qu’elle est mise sous 
tension. 


Les transferts de données en direction 
du port cassette se font par CSAVE et 
CLOAD (vérification possible grâce à 
CLOAD?). Pour l’imprimante, LLIST 
et LPRINT sont étendus de LPRINT 
USING, ce qui est bien sympathique ma 
foi ! Bien entendu, diverses autres ins- 
tructions sont destinées aux autres péri- 
phériques connectables sur les nom- 
breux ports disponibles. Ainsi PRINT #, 
INPUT#, LINE INPUT#, SNS, INP, 
OUT, OUT#, qui sont utilisables après 
INIT#, équivalent de l’open plus connu. 


Mais le X-07 a une particularité : il 
ne gère qu’un seul périphérique à la fois, 
ce qui fait que l'instruction CLOSE 
n’existe pas. En effet, soit un nouvel 
INIT # ouvre un autre fichier, et referme 


SON CERNEAN FROID ET 1M- 
PLACABLE PEUT RÉSOUDRE 
Les PRDBIÉMES LES PLUS COM - 
QLESES NOUS Noul&Z CONNA 
TR LAUSE DÉTAULE DES 
CRIMES ABOMINABLES DE LA 
JOURNÉE 2 REN DE PLUS FACILE! 


Fiche technique du Canon X-07 


Constructeur : Canon 

Prix public : 1850 FF ttc en version de base 
Processeur : NSC 800 
Mémoire vive disponible : 
extensibles 

Mémoire morte : 20 Ko, extensibles 
Langage : Basic d'origine Microsoft 
Variables numériques : de 1E-62 à 1E + 
62 

Précision : 14 chiffres significatifs en dou- 
ble précision 

Nombre de mots clés du Basic : 127 


8 Ko, 


automatiquement le précédent ; soit la 
fin du programme est rencontrée, et 
cette fermeture s’effectue. Les divers 
périphériques sont reconnus par une 
désignation associée à INIT : KBD 
représente le clavier, OPT le coupleur 
optique, CASI le magnétophone en lec- 
ture, etc. 


Ce tour d’horizon vous aura montré 
que le Basic du X-07 dispose de carac- 
téristiques intéressantes, qui savent tirer 
parti, ou compenser la petite taille de la 
machine. Certaines fonctionnalités sont 
originales, et les lacunes sont rares. Les 
possibilités de ce petit bijou le hissent 
au rang de machines plus chères et net- 
tement plus encombrantes. 


Robin BOIS 


HEn! BON ET BIEN Miss FOPSY, 
MANQUE UN PEU D'ECAAUFTEMENT 


RE PASSEZ DEMAIN HON GARÇON 
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AZIMUTEZ, 
AZIMUTEZ... 


L'utilisation intensive du magné- 
tophone sur votre Commodore 
.. : 64 vous expose à de désagréables péri- 

… péties dont la plus sournoise est le 


défaut d’alignement de la tête de lec- 
. ture, problème qui survient toujours 
... au moment le plus inopportun confor- 


mément à la loi de Murphy, que je 


salue ici encore ! 
_ L'effet de ce défaut est désastreux, 
ce ae . puisqu'il conduit à l’impossibilité de 


relire vos propres cassettes, ainsi que 


les cassettes commerciales. A noter 


RENEZ un programme et ôtez-en très | que ces dernières sont généralement 
. enregistrées en « Turbo », ce qui les 
soigneusement toutes les astuces, des plus | rend particulièrement sensibles au pro- 
élémentaires aux plus subtiles. Vous êtes certain  Snenondeccdepaat em a le Or ee 
de n’en avoir laissé passer aucune ? Bien. Que en 
reste-t-il ? Rien, ou peut-être une bogue ou deux SE 
(tout le monde peut se tromper). En fait, tout 
programme n est qu'une suite d'astuces, Dans le D an 
pages qui suivent, vous en trouverez un grand a mes 
nombre. Certaines sont de portée très générale. 192,96 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices. Même s'il ne s’agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire... Si ce ne sont pas 
des secrets que vous cherchez à conserver | 
-jalousement, faites-en part au journal, Celles qui. 
nous paraïtront les plus intéressantes enrichiront 
à leur tour la boite à malices. Tous les lecteurs 
pourront ainsi en profiter, 


L’usage de ce programme est des 
: plus simples, puisqu’après l’avoir mis 


d'agrément 
de la tête de 
lecture !.. 
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en mémoire et lancé, il suffit de jouer 
finement du tournevis tout en prêtant 
une oreille attentive (qui vous sera ren- 
due par la suite). En effet, l’utilitaire 
de réglage permet d’entendre sur le 
haut-parleur dont est assurément muni 
le téléviseur associé à votre C.64, le 
contenu de toute cassette placée dans 
le magnétophone. Quant au tournevis, 
vous l’aurez choisi de petite taille, cru- 
ciforme, et si possible en matériau non 
magnétique. Il vous servira à tourner 
légèrement la vis de réglage qui main- 
tient la tête de lecture récalcitrante du 
magnétophone. 


Cette vis demeure cachée sous le 
capot supérieur du magnétophone, 
mais un trou a été prévu par le cons- 
tructeur, à proximité immédiate de la 
trappe réservée aux cassettes, au- 
dessus de la touche REWIND. Si vous 
utilisez un ancien modèle, le trou 
existe, mais il est caché sous le ban- 
deau métallique qu’il vous faudra per- 
cer vous-même au-dessus du mot 
F.FWD. Mais démontez le capot pour 
effectuer cette opération ! La vis de 


réglage doit se positionner exactement 
sous le trou lorsque le magnétophone 
est en lecture : profitez-en pour y insé- 
rer votre tournevis. 


N'importe quelle cassette peut être 
placée dans le magnétophone (Bee- 
Gees, Bach ou d’autres Rocker’s), 
mais le mieux est de préparer une 
bande spéciale sur laquelle seront enre- 
gistrées quelques minutes d’un son 
continù assez aigu. 


Ce son, qui sera entendu par le 
haut-parleur, sera plus ou moins fidèle 
en fonction de la rotation que vous 
imprimerez à votre tournevis. Cher- 
chez donc doucement la position qui 
donne le meilleur son, et vous rendra 
donc une tête correctement azimutée. 
Pour arrêter le programme, pressez 
SHIFT: vous voici maintenant avec un 
magnétophone quasi neuf, et une nou- 
velle chaîne quasi HIFI (hum !). Con- 
tent de cette opération, votre magné- 
tophone vous le rendra au centuple ! 


Robin BOIS 


FAITES VOTRE 
CHOIX 


Après l’article de Michel Dupont 

à propos des menus sur ordina- 
teurs de poche (LIST 6), voici un pro- 
gramme plus spécialement destiné au 
PC-1500. Le principe de ce menu con- 
siste à déplacer verticalement une fené- 
tre (l’écran du micropoche) sur une 
liste d'options. L'utilisateur peut à 
volonté faire monter ou descendre 
cette fenêtre grâce aux touches { et Ÿ 
dont le code ASCII est respectivement 
10 et 11. 


Lorsqu’il a fait son choix, il lui suf- 
fit de presser sur la touche ENTER 
et le sous-programme retenu est exé- 
cuté. Pour en avoir la démonstration, 
tapez le programme proposé puis 
demandez DEF A. Actionnez les tou- 
ches | et Ÿ de manière à explorer tout 
le menu. Faites apparaître « Salade » 
à l’affichage, appuyez sur ENTER et 
le programme « Laitue » est exécuté. 


Marc DANGLA 
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moment 
rogramme pour PC-1500 
uteur Marc Dangla 
: Copyright LIST et l’auteur 


5: "Q":CLEAR 


WAIT 9 


19: PAUSE * X *%X * 


X %X MENU *X * * 
X X ‘ 


28:A=2:PRINT “ - 


Entree“.GOTO “ 
B* 


39:Q=3:PRINT " - 


Uiande":GOTO " 
8" 


4@:A=4: PRINT " - 


Legume":GOTO “ 
B" 


50:A=S: PRINT " — 


Poisson":GOTO 
"B" 


69:A=6: PRINT " — 


Salade":GOTO " 
B" 


29: A=7:PRINT " - 


Fromage ":GOTO 
"g' 


89:A=8:PRINT " - 


Dessert ":GOTO 
“pr 


SB:A=S: PRINT " - 


Digestif":GOTO 
r"p" 


1080:RA=1D:PRINT " — 


Uin":GOTO “B" 


119:A=11:PRINT " - 


Etc...":GOTO 
“pr 


300: "B'"B$=INKEYS 


1F ACÇDI1IAND 
ASC (B$)=19 
GOTO CCA+1DXIA 
) 


319:IF ASC (B$)=11 


GOTO CCA-1)*%19 
> 


328:I1F ASC (B$)=13 


WAIT :GOTO (C<CA 
x120)+1260) 


339: GOT0O CAX10) 
1200: PRINT “ + Cr 


udites":END 


1388:PRINT " + To 


urne dos "“: END 


1488: PRINT " + Ep 


inards ": END 


1S88: PRINT " + Tr 


uite":END 


1689: PRINT * + La 


itue “: END 


1708:PRINT " + Ca 


me mbert":ÆEND 


1890: PRINT " + Ta 


rte":END 


1909:PRINT " + Ea 


u de vie": 


END 


20@8:PRINT " + Bo 


urgogne ‘": END 


2188: PRINT " + Fi 


n'°:END 
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DES PROGRAMMES AU JOUR... ET À L'HEURE 


Sur Apple Ile, il est possible de 

dater ses programmes par l’inter- 
médiaire d’un utilitaire de la disquette 
système. Sur Apple Ilc, on ne peut rien 
faire ! 


Or il est assez facile depuis Basic de 
dater ses programmes. Pour cela, qua- 
tre adresses sont concernées. Il s’agit 
de 49042 et 49043 pour l’heure et les 
minutes, de 49040 et 49041 pour la 
date. En ce qui concerne l’heure le 
problème est très simple : il suffit de 
poker l’heure en 49043 et les minutes 
en 49042. 


Pour la date, c’est un peu plus com- 
pliqué, car deux adresses sont utilisées 
pour trois données. La méthode de 
calcul est la suivante : 

e si le mois est strictement plus petit 
que 8, en 49041, poker année +2 et en 
49040, poker mois*32 + jour ; 

e si le mois est supérieur ou égal à 8, 
en 49041, poker (année*2) + 1 et en 
49040, poker (mois —8)*32 + jour 


Prenons un exemple : le 24/09/85. 
Nous sommes alors dans le deuxième 
cas, où le mois est supérieur à 8 : 
< en 49041, poker (85*2) + 1, soit 
1715 
< en 49040, poker (9 — 8)x32 + 24, soit 
56. 


Prodos va chercher ces valeurs lui- 


Explications du programme 


Ligne 103 : force le mode 40 colon- 
nes sur Apple Ilc. 

Lignes 130 à 240 : gestion du cur- 
seur, permet également d’éviter des sai- 
sies erronées. 

Linges 300 à 360 : lecture des don- 
nées directement dans la mémoire 
écran, permet de frapper <RE- 
TURN > à n’importe quel endroit de 
la ligne. 

Lignes 400 à 460 : algorithme de cal- 
cul des valeurs à poker dans les adres- 
ses concernées, écrit également ces 
valeurs dans un fichier s’il y a eu des 
modifications (drapeau DP). 

Lignes 500 à 600 : algorithme de lec- 
ture, si les adresses ont une valeur nulle 
(cas à l’allumage) lecture du fichier. 
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188 REN 

191 REM === 

183 PRINT CHR$ (21) 

184 ONERR GOTO 1528 

185 0$ = "Q":SE$ = "/":6P$ = “:":0A$ = "DATE ":HR$ = ? 
PRODOS -":50$ = *----- 

118 NF$ = "FICH.CALENDRIER 

115 HT = 9:AV = LL = 1192 

138 HOME : VTAB 3: HTAB 18: PRINT TI$: HTAB 13: PRINT 50%: UTAB 28: HIAB 5: PRINT AI$ 

148 VTAB 18: HTAB 4: GOSUB 588: PRINT DASJOSSESMOSSESANSHRSHESSPSMNS ; 

158 HTAB HT: GET A$ 

168 IF A$= CHR$ (13) THEN 318 

162 IF A$ € ) CHRS (21) THEN 288 

185 IF HT = 18 OR HT = 13 OR HT = 29 THEN AV = 2: GOTO 198 

178 IF HT = 16 THEN HT = 28: GOTO 158 

188 IF HT = 32 THEN 158 

198 HT = HT + A: = 1: GOTO 158 


HEURE ":D$ = CHRS (4):71$ = "- CALENDRIER 
=*:AI$ = "Fleches {droite} {gauche} (return)" 
10P$ = "OPEN" + NF$:RES = "READ" + NF$:URS = URITE" + NF$:CL$ = °CLOSE" + NF$ 


Calendrier 
Programme pou 


208 1FA$ 4 ) CHRS (8) THEN 230 A Michal | 
203 IF HT = 12 OR HT = 15 OR HT = 31 THEN AV = 2: G0TO 228 pes s ON 
285 IF HT = 28 THEN HT = 16: GOTO 154 opyright 

218 IF HT = 9 THEN 158 


228 HT = HT - AV:AV = ji: GOTO 158 
238 IF € ASC (A$) & 48 OR ASC (A$) ) 57) THEN 158 
248 PRINT A$;:DP = 1: GOTO 165 
DE MEN > memes es PÉE PAGE TEXTES Serena 
318 JO$ = CHR$ € PEEK (LI + 8) - 128) + CHR$ € PEEK (LI + 9) - 128):J0 = VAL (J0$) 
328 MO$ = CHRS ( PEEK (LI # 11) - 128) + CHR$ € PEEK (LI + 12) - 128):MD = VAL (MO) 
338 ANS = CHR$ ( PEEK (LI + 14) - 128) + CHR$ ( PEEK (LI + 15) - 128):AN = VAL (AN#) 
348 HE$ = CHR$ ( PEEK (LI + 27) - 128) + CHR$ ( PEEK (LI + 28) - 128):HE = VAL CHE$) 
358 MNS = CHR$ ( PEEK €LI + 38) - 128) + CHR$ ( PEEK (LI + 31) - 12B):MN = VAL (MS) 
368 IF JO } 31 OR JO € 1 OR MO } 12 OR MO € 1 OR HE } 23 OR MN ) 59 THEN HT = 9: 6070 158 
488 REM -----------------{CRITURE ADRESSES PRODOS------------""-- 
Ai PA = 49848:P1 = 49841:P2 = 49842:P3 = 49043 
428 IF MO € 8 THEN POKE PG,MO x 32 + JO: POKE P1,AN * 2: GOTD 448 
438 POKE P8,C(MD - 8) # 32 + JD: POKE P1,AN # 2 + 1 
448 POKE P3,HE: POKE P2,MN 
459 IF DP = 1 THEN PRINT D$0P$: PRINT D$UR#: PRINT PEEK (P8): PRINT PEEK (P1): 

PRINT MN: PRINT HE: PRINT D$CL$: HOME : NEW 
468 FOR 1 = 1 TO 188: NEXT : HOME : NEW 
SU MEN ss LECTURE ADRESSES PRODDS ---------""" 
518 PS = PEEK (49849):P1 = PEEK (49841):P2 = PEEK (49842):P3 = PEEK (49843) 
515 IF PS = 8 AND PS = @ THEN PRINT D$0P#: PRINT D$RES: INPUT P8,P1,P2,P3: PRINT DSCL$ 
328 IF CPI / 2- INT (P1 / 2)) THEN MO = INT (P8 / 32) + 8:J0 = P8 - (MO - 8) * 32: GOTO 548 
530 MO = INT (P8 / 32):J0 = PB - MO * 32 
548 AN = INT (PI / 2) 
598 J0$ = STR$ (J0): IF LEN (J0$) & 2 THEN J0$ = 0$ + J0$ 
568 MO$ = STR$ (MO): IF LEN (NO$) { 2 THEN MO$ = 0$ + M0$ 
378 ANS = STR$ CAN): IF LEN (ANS) & 2 THEN ANS = D$ + ANS 
988 HE$ = STR$ (P3): IF LEN CHES$) € 2 THEN HES$ = 0$ + HE$ 
398 MN$ = STRS (P2): IF LEN (MNS) { 2 THEN M$ = 0$ + MN$ 
688 RETURN 
1988 REN ------------"-" TRAÎTEMENT ERREUR-----------"-"- 
1528 IF PEEK (222) = 5 THEN PRINT DSCL$: CALL - 3288: GOTO 558 
1538 PRINT "ERREUR N°"; PEEK (222) 


même, puis il les inscrit sur le direc- 
tory de la disquette. Le programme ci- 
dessus (placé en startup) vous permet 
à chaque « boot » de mettre la date et 
l’heure à jour. De plus, il crée auto- 
matiquement un petit fichier séquen- 
tiel, évitant ainsi de ressaisir la date 
complète. 


Michel AUBRY 
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LES DESSOUS 
UNE LIGNE SUR DEUX DELA 
… SOUSTRACTION 


Comme le manuel du CPC 464 l'indique, l’ordinateur, quand une liste 
sort sur l’imprimante, envoie un passage à la ligne — CHRS(10), alias} 
“line feed” —, et une retour-chariot — CHR$(13) — après chaque ligne impri- 
mée. Or sur la plupart des imprimantes, le passage à la ligne se fait automati- 
quement, ce qui conduit à un double espacement des lignes, et donc à une perte 
de papier. : 


C'EST PE L'ALZÈBRE 
SANS PYZAMA !.. 


10 ? UTILITAIRE DE LISTING IMPRIMANTE 
29 ? SUPRIME LE LINE FEED DU CPC 464 
30 ? ENTRE DEUX LIGNES DE PROGRAMMES, 
49 ? LANCER LE PROGRAMME PUIS TAPER 
50 ? WIDTH 255 CENTER] SUIUIT DE LIST #8 
69 ? 

78 ? 

88 CLS:MEMORY 423839 

32 FOR AD=48427 TO 48423 

198 READ VALEUR 

112 POKE AD, UALELR 

12@ NEXT AD 

130 FOR AD-43000 TO 43008 

140 READ VALEUR 

150 POKE AD, URLEUR 

168 NEXT AD 

178 DATA 195,248,167,254,10,32,1,135,207 
:242;, 135,201 


Une soustraction n’étant jamais 
- qu’une addition dont un des 
: : termes est négatif, les observations que 
: nous avons relevées dans LIST 7 (page 
74) au sujet de l’addition de deux nom- 
bres restent valables pour la soustrac- 
tion, sur un PC-1211. Si l’on pose A 
= 0.000 030 000 487 et B = 0.725 
alors A—B = —0.724 969 999 513 ; | 

= mais A—B+0.72 provoque à l’affi- 

: chage — 0.004 969 999 52, approxima- 
tion médiocre si l’on doit exploiter 
tous les chiffres significatifs. En revan- [ 


180 ? - che, -B+ A+0.72 fournit le résultat 
parfait —0.004 969 999 513. On voit | 
. PRORRAME FRS SENSÈERR : donc que dans l'écriture d’une diffé- 


_ rence, il est toujours souhaitable de 
mettre en tête le plus grand des deux 


218 ? CP 108 5Compare A avec iÿ . 
. nombres en valeur absolue. 


228 ? JRN& ! Branche si diff, de 10 


230 ? ADD A,A ;Doubie A à 20 . . Le cas ee qe js avec 

m - 
259 ? Utilitaire pour Amstrad CPC 464 | 6.000 000 000 353 2 et B = 0.000 000 
268 ?! Copyright LIST et l’auteur … 000 118 9 ; alors Z+A-—B = 0.987 


… 000 000 834 3. 
: Si l’on applique le précepte précé- | 
: dent, pour obtenir les 10 derniers chif- 


La solution permettant d’éviter ce gâchis consiste à utiliser une courte rou- 


tine en Assembleur pour détecter le CHR$(10) et le changer. Le ‘“‘jumpblock”’  fres significatifs de Z+A-—B, on 
écrivant un caractère est en mémoire vive (&8D2B) ; il peut donc être modifié introduit Z + A — B — 0.98 et le résul- 
(lignes 90-120) en un saut à l’adresse 43000 qui contient le programme suivant :  tat est 0.007 000 000 835, ce qui n’est 
CP 10 - JRNZ,1 - ADD A,A - RST 08. :.: pas trop mal. Mais essayons de faire 


Et le mode d'emploi ? Mais il est très simple. On exécute d’abord l'utilitaire Mieux par per mutation des termes. 


puis on charge le programme à lister et l’on tape WIDTH 255 et LIST#8. En fait, les six combinaisons possi- 
_ bles de l’ordre d’introduction des 
… variables, agrémentées ou non de la 


Bruno FITER mise entre parenthèses des deux der- 
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Tableau des résultats : une même 
opération sous plusieurs formes 


Ordre d'introduction Résultat 
des données 

Z+A-—B-—0.98 |0.007 000 000 835 
LEBEA ss désaes sue 835 
A+Z-B..…. |.......... 832 
—B+Z+A.:.. |.......... 843 
A=BEZ us diese smuuus 83 
—B+A+Z... |.......... 83 
Z+(A—-B).… |.......... 834 
Z+(-B+A.... |.......... 834 
A+(Z-B)...…. |.......... 83 
REZ HA bas issus de 84 
AH(SBEZ) 2 | Liste 84 
—B+(A+Z).... |.......... 84 


niers termes— la mise entre parenthè- 
ses des deux premiers termes ne change 
rien aux résultats — conduisent à six 
valeurs différentes de la somme algé- 
brique recherchée (voir le tableau des 
résultats). 


On voit que les meilleurs résultats 
s’obtiennent en écrivant Z +(A —B) ou 
Z+(-B+A). On peut donc optimi- 
ser la précision en mettant en queue et 
entre parenthèses le groupe de varia- 
bles de faible valeur absolue unitaire 
par rapport à la variable (ou au groupe 
de variables) de tête. Sur le plan de la 
théorie, cette démarche est tout à fait 
logique, car la machine calcule en bloc 
l’expression entre parenthèses et par 
conséquent, quel que soit le nombre de 
termes sous parenthèses, la déprécia- 
tion de la précision n’est jamais affec- 
tée que par une seule opération, et non 
par autant d’opérations que de 
termes. 


Cette procédure est particulièrement 
bénéfique dans le cas des expressions 
comportant de nombreux termes. Par 
exemple, affectez (en mode calcul) aux 
variables Z et À à F les valeurs 
suivantes : 


0.987 6 
0.000 000 000 353 62 
0.000 000 001 448 97 
— 0.000 000 025 245 78 
= 0.000 000 317 029 36 
0.000 000 512 226 75 
= 0.000 035 471 844 96 
Le calcul manuel de Z-A-B-— 
C—D-E-—F donne 0.987 563 671 850 
56, soit 0.987 563 671 851 avec 12 chif- 
fres significatifs. 


WU 


TOO» N 
| 


La machine fournit les résultats sui- 


E+F)-0.98 — 0.007 563 671 851, 
valeur exacte. 


vants: Z-A-B-C-D-E-F- eZ. 
0.98 = 0.007 563 671 855, valeur Se 
médiocre ; et Z-(A+B+C+D + DEVINETTE . 


La mise entre parenthèses des der- 
niers termes a donc permis de récupé- 
rer quatre unités sur la dernière 
décimale. 


Quelle que soit la case de 
départ imposée, le Dr Jivaro, 
chevauchant sur son fidèle PX-8 
aux lignes généreuses, favori du 
derby d’Epson, jalonne en un clin 
d’œil les 64 sauts qui lui permet- 
traient de parcourir tout l’échiquier 
|sans retomber deux fois sur la 
même case. 


‘ Connaissant son sens très strict 

‘| de l’économie, et son goût pervers 
pour les instructions « à tiroirs », 
dites combien il a utilisé d’instruc- 
tions, et subsidiairement, d’octets ? 
(La réponse se trouve à la 
page 81). 


En résumé, si l’on veut obtenir une 
somme algébrique avec le maximum 
de précision : 

e introduire en premier les nombres 
présumés les plus grands en valeur 
absolue, 

e introduire ensuite les nombres par 
ordre décroissant de valeur absolue — 
si toutefois on en connaît la taille — 
et mettre entre parenthèses les varia- 
bles d’ordre de grandeur comparable. 


Pierre Ladislas GEDO 


Pierre BARNOUIN 


TOURS DE HANOÏ 


À chacun sa réaction 


Le PC-1211 fait les calculs sur 12 chif- 
fres. Il en stocke 10 et en affiche 10. 
Votre ordinateur a peut-être d’autres 
limites. Il peut donc réagir bizarrement 
face à d’autres calculs (même des addi- 
tions). Faites-nous part des résultats les 
plus étranges qu’il vous propose. 
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Rappelons brièvement en quoi 
consiste ce casse-tête créé par 
le mathématicien Lucas il y a 100 ans : 
huit disques, ou plus, de diamètre 
décroissant de la base au sommet, sont 
rangés en pile à gauche de l’écran. Il 


2 ) 
#7 D,)) 
FZ Ze 


LES RE ÆS 
(a 


( 


faut reconstituer cette pile à droite de 
l'écran, en utilisant une pile centrale 
intermédiaire, et en transférant les dis- 
ques d’une pile à l’autre, un par un, 
sans jamais poser un disque sur un 
autre plus petit que lui. 


En Pascal, c’est une application 
classique de la récursivité. En Basic, 
ce terme est synonyme de sérieuses 
complications et de gouffre pour la 
mémoire des petits systèmes. Nous 
ramènerons donc prudemment tous les 
mouvements à un unique cas de figure, 
par un choix judicieux des variables et 
procéderons par itération (voir pro- 
gramme page suivante). 

L’initialisation occupe la ligne 1 et 
le corps du programme la ligne 2. La 
ligne 3 réalise l’unicité des cas de 
figure, que traite la ligne 4. La ligne 
5 efface le disque ôté à une pile et la 
ligne 6, qui est aussi utilisée pour l’ini- 
tialisation, affiche le disque ajouté à 
une autre. 


Les « tours » sont numérotées de 0 
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Tours de Hanoï 
Programme pour PX-8 


Auteur Pierre Barnouin 
Copyright LIST et l’auteur 


1 SCREEN 3,,0:CLS:FOR I=1 TO 8:H(0)=1I:T(0,1)=1I:GOSUB 6: NEXT 

2 WHILE H(2) < 8 : GOSUB 3: WEND:END 

3 Q=(2*Q +2*R)MOD 3:R =(Q +1)MOD 3:IF T(Q,H(Q)) < T(R,H(R)) THEN 
SWAP Q,R 

4 H(R)=H (R) + 1:SWAP T(Q,H(Q)), T(R,H(R)}) 

5 LOCATE 5 +26+Q,9 - H(Q):PRINT SPC (16) ; : H(Q) = H (Q)-1 

6 K=9-—T(R,H(R))}:LOCATE 26xR —K +13,9-— H(R):PRINT STRINGS(2*K, 
140);:RETURN 


de perceur de coffre-fort, faites-en 
profiter votre entourage, maintenant 
que vous savez... 


CRIC, CRAC... 


Frédéric CHARLES 


DE NOÔTRE TEMPS ON 

N'AVAIT PAS BESOIN 

D'ORDINATEURS FOUR 

OUVRIR. UN COFFRE 
-FORT ‘ 


TOUT ÉTAIT 
DANS 
LE DOiGtTÉ 


ÿA PLUS 
D'eunesse !} 


À quoi peuvent bien servir les 
registres de mémoire supplémen- 
taire apportés par les modules d’exten- 
sion X-Function et X-Memory ? A 
diverses choses, nous apprend la docu- 
mentation, mais pas à exécuter des 
programmes qui s’y trouvent stockés. 


Quoi de plus stimulant pour le pro- 
grammeur qu’une interdiction ? Là 
encore, la programmation synthétique 
étend les possibilités de base de la 


Alors ! Un mois après la publi- 
cation (LIST 8, page 75) du pro- 
gramme Cric-crac, un coffre-fort pour 
Sharp PC-1500, vous ne l’avez pas 
encore forcé ? Tss.. 


La solution pour trouver la bonne 
combinaison du coffre et déjouer les … 
systèmes de brouillage et d’alarme 
n’était pourtant pas inaccessible : : 
e la combinaison du coffre se trouve 
grâce aux notes produites par chaque 
chiffre ; aux notes les plus élevées, cor- 
respondent les bons chiffres ; 
< toutes les 15 secondes, le brouillage : 
se met en route et la combinaison est 


ASN BEEP E + 
ASN PACKE - 
(PRGM) 
ENTER 

GTO.. 


(alpha) 


automatiquement changée ; “ il s'affiche 4094 ENTER 
e l'alarme se déclenche 1 mn 30 après BST attendre 4093 ENTER 
le démarrage du programme, il faut ul ne Le 
donc percer la combinaison BST 0 ÉEbe 
rapidement ; — 4089 LBL 03 
. enfin, cette alarme se déclenche aussi + 4088 LBL 08 
si l’on presse 11 fois successivement la Vx 4089 TC 


(prgm) 
GTO.. 


même touche (une même roue a fait 
un tour complet). 


Voici achevée votre première leçon 
LIST - PAGE 76 


Assigner le Cric à =+ 
Faire un Memory LOST : OFF puis ON avec la touche <— pressée. 


CATALOG 1 immédiatement suivi de R/S. Il s’affiche END 


Le Cric (affichage de XROM 05,03) est assigné à la touche Z + et PACK à Z — 


à 2, les disques sont toujours enlevés 
à la tour Q et ajoutés à la tour R. H 
(D) est la hauteur de la tour I et T(1,J) 
correspond au disque situé à l’étage J 
de la tour I. Plus précisément le rayon 
de celui-ci est K=9-—T (1,J). Les huit 
étages de la tour de gauche mettent 75 
secondes à effectuer les 255 mouve- 
ments qui permettent de les empiler à 
droite, sur l’écran d’un Epson PX-8. - 


Suivant le matériel utilisé, vous 
devrez peut-être combiner des 
« périphrases » pour remplacer 
WHILE... WEND, MOD, ou SWAP, 
mais la reconstitution de l’algorithme 
que traduit le programme ne devrait 
pas vous donner trop de mal. Préci- 


- sons qu’il s’agit ici d’une règle simple 


et non d’une formule algébrique. 


Pierre BARNOUIN 


ET POURTANT, ILS TOURNENT 


HP-41C en permettant l'exécution 
d’un programme directement en 
mémoire étendue. 


Préparation : le Cric doit être assi- 
gné à une touche du clavier (tradition- 
nellement à £ +). La méthode d’assi- 
gnation est rappelée en encadré. Un 
premier programme doit se trouver en 
mémoire centrale. Peu importe sa lon- 
gueur. Quant au programme stocké 
dans 1’X-mémoire, il doit être le pre- 


suite page 80 
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Prix d’ur 


France: : 
Belgique 
Suisse: € 
Canada: 
Autres P: 
(Surface 


mier et débuter par LBL B (car c’est 
d’un XEQ B qu’on l’exécutera). On ne 
doit y trouver aucun LBL A ou LBL a. 


Ci-prêt, en mode de calcul, faire 
GTO.. pour compacter la mémoire et 
positionner correctement le pointeur 
de programme. Puis, évidemment en 
mode User, exécuter le Cric (touche 
Z+, affichage de XROM 05,03). 
Enfin, une pression de la touche 1/x 
conduit à l’exécution du premier pro- 
gramme conservé en X-mémoire à 
condition, bien sûr, qu’il débute par 


LBL B (car 1/X en mode User corres- 
pond à XEQ B). 

Tout ne se passe pas, malheureuse- 
ment, aussi facilement qu’en mémoire 
centrale. En particulier, il n’est pas 
possible d’user de sauts (GTO) comme 
par exemple un GTO à un autre pro- 
gramme de la mémoire étendue. A 
moins qu’un lecteur parvienne à 
dépasser cette nouvelle difficulté ? 


Stéphane LASTRAJOLI 


THOMSON 


LANCEMENT AUTOMATIQUE 
SUR DISQUETTE 


Voici une procédure simple pour lancer automatiquement un programme 
enregistré sur disquette (TO7,T07-70,MOS). Vous recopiez le Dos-Basic 

sur une disquette vierge (faire Backup 0 et suivre les instructions). 
Ensuite, écrivez un programme que vous appellerez AUTO-BAT, chaque fois 


que vous frapperez la touche 2 à l’initialisation, le Dos-Basic puis le programme 
AUTO-BAT se chargeront. Le programme AUTO-BAT sera ensuite lancé 


automatiquement. 


Supposons que ce programme vous donne la liste des programmes enregis- 
trés sur la disquette et affectés d’un numéro. Il vous suffira alors de taper le 
numéro choisi pour lancer le programme correspondant. 


Si, à la fin de chaque programme, vous avez ajouté RUN ‘‘AUTO.BAT"”’, 
alors, vous reviendrez au menu offert par AUTO.BAT. En cas de problème 
nécessitant une réinitialisation du TO7, appuyez sur la touche 2 du menu géné- 


ral et vous relancerez AUTO.BAT. 


Par exemple, si quatre programmes — PROG1, PROG2, PROG3, PROG4 
— sont enregistrés sur la disquette numéro 23, vous pouvez écrire le programme 


AUTO-BAT suivant : 


10 CES 
20 PRINT’'Disquette N°23”? 


30 PRINT’’Nombre de blocs libres” ; DSKF (0) 
“40 PRINT’”’1-PROGIL’’:PRINT”’2-PROG2"”:PRINT’’3-PROG3”’: 


PRINT”’4-PROG4”’:PRINT”’5-FIN” 
50 A$ = INPUT$(1):CH = VAL(AS) 


Tic! 


! 
60 ON CH GOTO 100, 200, 300, 400, 500 Tac: 


100 RUN’’PROG1”’ 
200 RUN’’PROG?2” 
300 RUN’ PROG3”’ 
400 RUN’’PROG4”’ 
500 CLS:END 


Ce petit programme n’est qu’un cane- 
vas, vous pourrez y ajouter tous les 
raffinements possibles : choix au 
crayon optique, descriptifs des pro- 
grammes, etc. 


Jean-Paul CARRÉ 
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PB-700 


ENCORE 
DES COURBES 


L’étude d’une fonction mathé- 

matique est tout de même plus 
aisée en présence de sa courbe repré- 
sentative. Avec le PB-700 et un pro- 
gramme adapté, on pourra la voir à 
l’écran ou sur le papier de l’impri- 
mante. Auparavant, le programme 
aura étudié la fonction entre deux limi- 
tes fixées, calculé l’échelle et placé les 
axes. 


C'EST TRÈS SIMPLE ; C'EST 4 
LA SEULE QU NE SUIVE 
PAS UNE PROGRE SSION ] 

t 


MATHEMATIQUE 


Poounent VOUEN 
J vous Qu je 
| RETROUVE VOTRE 
| come pe - 
| Temréaarure 
DANS TOUT © 
CAARNAGN D 


Les commentaires du programme 
n'apparaissent pas dans la liste sous 
forme de REM, mais ils peuvent être 
détaillés. A la ligne 15, se situe le cal- 
cul du champ d’étude de la fonction 
et celui du pas. Si les bornes d’étude 
sont respectivement négative et posi- 
tive, cette ligne calcule aussi la posi- 
tion de l’axe des ordonnées. Si les deux 
bornes sont négatives, la longueur 
d’étude est la valeur absolue de la 
borne inférieure de l’axe des X (ligne 
20), auquel cas on ne voit que la par- 
tie négative de l’axe des abscisses, tra- 
cée à droite de l’écran (V = 159). Si les 
deux bornes sont positives, l’axe est à 
gauche de l’écran (V =0, ligne 25), la 
longueur d’étude correspondant à la 
plus grande valeur des X, S. 

La boucle FOR...NEXT (lignes 35 
à 60) étudie la fonction point par 
point, recherchant son maximum 
(ligne 50) et son minimum (ligne 55). 
Le calcul de l’échelle s’effectue à la 
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PF M ù ON En CR it di‘ cn mn - à 


on tt md 


i REM COURBE UNIVERSELLE 
5 CLEAR :CLS :WU=16 QL 
iQ INPUT "Petit X"3R:'"Grand X":;5S 
15 D=ABSR+ABSS:U=D/168: IF R<G THEN IF 
S)>Q THEN U=R-U: GOTO 35 
28 IF ABSRDABSS THEN D=-R:U=159: GOTO 


L 25 D=S:U=9 COPIE DE 
. DR ds TO S STEP U SECURITE 


| à 40 GOSUB 208 
| 5Q IF YDA THEN A=Y 
| 55 IF B<Y THEN B=Y 
| 60 NEXT X 
70 E=CABSA+ABSB)/32 
. 75 IF B=G THEN W=31 


j Voici un utilitaire qui permet 
## d’éviter la fastidieuse série de 
« Copy mdvi identificateur to mdv2 
identificateur » quand on doit copier 


- 80 IF A=Q THEN W=@ entièrement un microdrive. Le pro- 
À 85 CLS :DRAN(B:N)-(159; 1): DRALCU; BD-€ gramme lit automatiquement la liste 
- U3 31) des segments dans le directory, il cal- 
128 FOR HR 10 S STEP U a 
| 118 GOSUB 200 4 | ‘ 
à 138 Y=LI-INTCY/E) Pour améliorer le programme, on 


140 IF Y2>=Q THEN IF Y<32 THEN DRANCINT 
CX/U+U),; Y) 

159 NEXT x 

160 IF INKEY$="" THEN 160 

17Q PRINT "Ech 1/"3E;:END 

280 Y=SINC2Xxx) 


| 


21Q@ RETURN 
ligne 70, 32 étant le nombre de points Courbes 
de la verticale de l’écran du PB-700. Programme pour PB-700 


nn creer DS D ed 5 © 


Auteur Olivier Dufailly 


Sir 29 ne 
S’il n’y a pas de valeur négative de Copyright LIST et l’auteur 


X, l’axe se trouve en bas de l’écran 
(W=31, ligne 75) ; s’il n’y a pas de 
valeur positive, l’axe des X se trouve 
en haut de l’écran (W=0, ligne 80). 

Le repère est affiché (ligne 85), puis 
la fonction est tracée point par point 
(lignes 100 à 150). La ligne 160 attend 


# 
qu’une touche soit frappée, elle empé- REP. ONSE 
che un terrible READY PO de venir 
ou frac À LA DEVINETTE 
Man DE LA PAGE 75 


Avant d’utiliser ce programme, il 
la courbe représentative. Après avoir 
entré les bornes d’étude de cette fonc- 
tion, le repère s’affiche puis la courbe Fe 
apparaît. L’appui sur RETURN 
donne alors l’échelle. 


21 Lu 


Li 


Deux instructions seulement, pour 186 octets. Le parcours à 64 sauts 
est un parcours fermé, qui pourra rester toujours le même, et qu’il 
suffira d’afficher à partir de la case désignée. La première instruction enre- 


gistre simplement ce parcours fermé choisi à l’avance. 


Reste à demander quelle est la case de départ, à enregistrer la réponse, 
à élaborer le résultat et à l’afficher. La deuxième instruction règle tout ça 
d’une seule foulée : du Basic acrobatique en quelque sorte ! 


d s bI soc DE 1 A$= ‘‘pSe6f4h3gle2cla2b4d3e1g2h4f3e5g6h8f7d8b7aScéd4b3alc2e3f1 
PAS EME ABSERIR ES AL En h2g4h6g8e7f5d6c8a7b5a3b1d2c4b6a8c7d5f6e8g7h5g3h1f2e4c3d1b2a4c5a7 
reur (erreur mathématique) est inévi- 


Enfin, il faudra faire attention à 
l’ensemble de définition de la fonction 
dont on souhaite la courbe : si l’inter- 
valle d’étude introduit n’est pas inclus 


b8d7f8h7”’:PRINT‘‘Case départ?””,MIDS(A$ + LEFTS(A$,126),INSTR 


table. C’est notamment le cas si X =0, (A$,INPUTS$(2)), 130) 


avec la fonction Y =1/X. 


Olivier DUFAILLY Pierre BARNOUIN 
N° 9 - MAI 85 
ET 
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Recopie de microdrive 
Utilitaire pour QL 

Auteurs Augustin Garcia et 
Franck-Olivier Lelaidier 
Copyright LIST et les auteurs 


pourra permettre à l’utilisateur de 
choisir les segments qu’il veut copier. 


REMark Franck-Dlivier Lelaidier et Augustin Garcia 
version 2.0 

CLS#@: CLS 

CSIZE &,1:AT 5,10: FRINT "DUPLIK":CSIZE %,0: PAUSE S00:CLS 
AT S,G:PRINT " METTRE L'ORIGINAL DANS mdvi” 

AT 6,U: PRINT * METTRE UN MICRO-DRIVE DBNS mdvz" 

REMar k Ses 


‘duplik” 


REPeat test 
AT 9,0: INPUT "VOULEZ-VOUS FORMATER LE MICRO-DRIVE 7% ( OD/N ) 
IF bé£='"o" OR bé$="n" OK b£="N" OK b#="0" THEN 
IF bF='o" OR b#="C0O" THEN 
AT 11,@:INFUT "SON NOM: "snomék 
FORMAT ‘'mdvz_"&nomé 
END IF 
a=liiF verif:@ THEN EXIT test 
AT 14,1G:FRINT "PAS ASSEZ DE FLACE":STOF 
END IF 
END KEFeat test 
REMar E ours me cure ne oo sue man con ces so me op me on ee mt me onde me oi ot mi D 
CLS 
copie 
CLS:PRINT TO 10:"COPY TERMINEE'"S AT 10,1@G:DIR mdvz. 
SYOF 
REMark msn mn nee ne mme en munies mena ne ne 
DEFine FuNction verif 
REMark mme mem manne me une nee creme 


OPEN NEW #5,mdv2 _provi2 temp 

DIR #5,mdv£e_ 

CLOSE #%:OFEN_IN #5,mdv2 proviz temp 
INPUT #5,dir2+#: INPUT #5,dir2# 
dir2=dire#(1i TO 5) ' 
CLOSERS 

DELETE mdvz_proviZ_ temp 
REMark 
OFEN_NEW #3 ,mdv# _provil temp 

DIR #35,mdvil_ 

CLOSE #3: OPEN_IN #3,mdv2_provii temp 
INPUT #3,diri#: INFUT #5,diri# 

REMar k 
nb_lect=0 

DIM a$(48,20%) 

REPeat lect 

IF EQOF(#Y) THEN EXIT 
INPUT #35,a#(nb _lect) 
nb_lectenb _lect+i 
END REFeat lect 
CLOSE #3 

DELETE mdv£_provil temp 
dirisdiri#(i TO 2%) 
diritsdiri#(s TQ 7) 
REMar E 
RETurn dir2-{dirii-dir1) 
END DEFine verif 


lect 


REMSFÉ. essaie seen 
DEFine FROCedure copie 

REMark ess nee nee ne nee ce eee are ae er eme 
FOR i=@ TO nb_lect-1 

FRINT TO 10: "SAVING "s;sa#(i) 

COFY "mdvi "&a#(i) TO "mdv?_"bat(i) 
END FOR i 


END DEFine copie 


Sylvain Coron. 


Augustin GARCIA 
Franck-Olivier LELAIDIER 
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OÙ AYAIT-ON LA MÉMOIRE ? 


Dans l’article de Sylvain Coron (LIST 7, pages 75 et 76), une erreur s’est glis- 
sée juste à la dernière phrase. Il fallait lire (ou plutôt nous aurions dû écrire) : 
« La routine est transposable en mémoire à condition. » et non pas : « La routine 
est transposable sur d’autres machines. » Toutes nos excuses à nos lecteurs et à 


Le cœur du programme 


Lignes 350-410 : Création d’un 
fichier temporaire sur le nouveau 
microdrive. Ecriture dans ce fichier de 
la liste des segments et des caractéristi- 
ques du microdrive. Lecture du nom- 
bre de secteurs libres sur mdv2 et sup- 
pression du fichier temporaire. 

Lignes 430-480 : Nouvelle création 
de fichier temporaire sur mdv2. Ecri- 
ture dans ce fichier de la liste des seg- 
ments et des caractéristiques du micro- 
drive (source). 

Lignes 480-490 : Initialisation du 
nombre de lectures à faire ainsi que du 
tableau indicé a$. 

Lignes 500-540 : Boucle de lecture. 
Tant que ce n’est pas la fin du fichier, 
on récolte dans a$ le nom de segment. 
Incrémentation du nombre de lectures. 

Lignes 570 et 580 : Lecture du nom- 
bre de secteurs libres ainsi que du nom- 
bre total de secteurs sur mdvi. 

Ligne 600 : La fonction retourne au 
programme principal le paramètre 
dir2— (dir11—dirl), c’est-à-dire le nom- 
bre de secteurs libres sur mdvi moins 
le nombre de secteurs à copier. 

Lignes 630 à 690 : Les fichiers qui 
n’apparaissent pas dans la liste des seg- 
ments ne sont pas recopiés. La procé- 
dure ne fait rien d’autre que ce que 
l'utilisateur aurait fait à la main. Elle 
récupère dans le tableau le nom de seg- 
ment et le recopie. 
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ZX 81 


SAISIE DE NOMBRES 


Lors d’un INPUT, le ZX 81, comme son successeur le ZX Spectrum, n’au- 
torise la saisie que sur la dernière ligne de l’écran. 


Le petit sous-programme assez élémentaire qui vous est proposé ci-après 
permettra la saisie de nombres à un emplacement plus standard. Il pourra éga- 
lement être utilisé pour des saisies de texte si les conventions faites pour An- 
nuler, Valider ou Finir sont modifiées. 


Les nombres entrés au clavier sont placés dans un tableau A largement dimen- 
sionné (ici 100 éléments) ; le sous-programme pourra être appelé en plusieurs 
endroits du programme principal, en faisant simplement GOSUB SAISIE. Les 
nombres seront, dans ce cas, enregistrés dans le tableau à la suite les uns des 
autres. La méthode employée permet de travailler sur des nombres de longueur 
quelconque. 


La touche A peut être frappée à tout moment pour Annuler une entrée er- 
ronée ; la touche V permet au contraire de Valider la donnée introduite. Pour 
finir, taper F comme Fin : le programme de démonstration affichera alors la 
liste des nombres saisis. 


10 REM SAISIE DE NOMBRES SUR Z 


| JE VIENS FAIRE 
LA SAISIE DES 


* Sa DIM A11001 Saisie de nombres 
30 LET SAISIE-1000 Programme pour ZX 81 
4 LET Cz1 Auteur Yvon Pérès 


29 SOSUB SAISIE 
SG RENM LERI IFICATIOUN DE LA SAIS 


F8 [LE 
So rh Fai T9 D-i 
38 FRINT A1F} 
100 HEXT F 
118 5TOP 
1008 BEM SAISIE 
1810 Cis 
1029 PRINT ui 5,6: "SRE 
": AT S,60:"4 POUR ANNULER":AT 
a: "u POUR UALIDER": AT 7, Ü.'F 
FOUR FINIR" 


=1 
1950 PRINT AT 180.6; "NOMBRE 7 


1062 PRINT AT 10,14+R:"- 
1970 PRINT AT 19,144+F; c&R 
1050 LET F$=INKEYS 

1058 IF F$="4" THEN GOTO 
1109 IF CODE F$>27 AND C9 
S THEN GOTS 1140 

2110 IF F$=z"U" THEN GOTC 
1120 IF Fé="F" THEN RETLEN 
1159 GOTS 10€ 

1149 PRINT AT 10,14+F;F$% 
1150 LET NEENS4FS 


LE: 
L 
D 
LE 


9 ë 
4# 
La 


1189 LET R=R+1 
117@ 5170 1068 
1150 LET N=UAL N$ 
1190 LET A(Di=N 
1200 LET D=D+1 
1210 GOTO 1030 


Copyright LIST et l’auteur 


BRISIE DE MOMEFES 
B POUR ANNULER 
! POUR VALIDER 
F FOUR FINIR 


NOMBRE 7 1:5:c} 


Ce programme n’accepte que les nombres entiers, mais il sera facile de l’adapter au 
cas des nombres décimaux ou négatifs, en modifiant simplement la ligne 1100 (prévoir 


F$="". », ou F$="-— #}, 


Yvon PÉRÈS 
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LES JEUX 


ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects . 

Tout d’abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
qu'il s'agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n'est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main... 
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La ronde des variables 


“ Nous avons vu, dans le premier 
numéro de LIST (jeu 3), que pour 
échanger le contenu de deux variables, 
Let J, il n’est pas indispensable d’utili- 
ser une variable auxiliaire. En effet, au 
lieu d’écrire : 


K=I 
I =7J 
J =Kk 


on peut utiliser, sous réserve des débor- 
dements de mémoire, les instructions 
suivantes : 


1=1+7J 
J=1-7J 
I =1-7J 


Nous vous proposons d’aller plus loin 
et d’écrire, toujours sans utiliser de 
variable auxiliaire K, deux séquences 


* Les solutions des jeux proposés ici paraîtront 
dans le prochain numéro de LIST. 
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d'instructions qui échangent les conte- 
nus de trois variables À, B et C. 


1. Trouver la première séquence qui 
échange les contenus de A, B et C par 
une rotation à gauche : (A, B, C) 
devient (B, C, A). Le contenu de A va 
dans B, celui de B dans C et celui de C 
dans A. 


2. Trouver la deuxième séquence qui 


J'NARIABLES 
# ATOM } 


TEE 
FOUT 


échange les contenus par une rotation 
à droite : (A, B, C) devient (C, A, B). 
Le contenu de A va dans C, celui de B 
dans À et celui de C dans B. 
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En peu d'instructions 


Notre casse-tête 17, (voir LIST 6, 
SE page 80) proposait de construire la 
matrice unité, le plus rapidement pos- 
sible. Notre objectif est maintenant 
d’obtenir le même résultat avec le plus 
petit nombre d'instructions possible. En 
APL, nous pouvons l’écrire en une seule 
ligne : (N,N) e (1,N e 0) 


En effet, l'instruction (1, N e 0) défi- 
nit une séquence de N+1 valeurs, la 
première valant un, et les N suivantes 
étant égales à zéro. Le tableau (N,N) est 
donc rempli avec un certain nombre de 
fois cette séquence de nombres. 


Dans des langages tels que le Basic, 
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OR: CRE CT EE ON 


LS | 


LŸLE PLUS PETIT NOMBRE 
D INSTRUCTIONS 


POSSIBLE 7. 


POUR ÊTRE 
PETIT., IL. 
EST ENT {! 


nous sommes obligés d’utiliser les bou- 
cles explicites. Ainsi, nous devons par 
exemple écrire : 

10 for L=1 to MAX 

20 for C=1 to MAX 

30 if L=C then goto 60 

40 A(L,C)=0 


50 goto 70 
60 A(L,C)=1 
70 next C 

80 next L 


Mais il est possible de modifier ce 
programme pour qu’il ne dépasse pas 
cinq lignes, tout en fournissant le même 
résultat. Toutefois, il est interdit d’uti- 
liser des instructions qui ne sont pas pré- 
sentes dans toutes les implantations de 
Basic, comme le ELSE de IF-THEN- 
ELSE ou le fait que les variables venant 
d’être déclarées sont automatiquement 
initialisées à zéro, ou les instructions 
matricielles qui remettent à zéro tous les 
éléments d’un tableau. 


30 


Modulo 


Vous connaissez bien l’opérateur 

modulo : A MOD B fournit le 
reste de la division entière de A par B. 
Il est très pratique, et nous l’utilisons 
très souvent. Toutefois, il existe de 
nombreux Basic qui ne possèdent pas 
cet opérateur. Pour pouvoir en dispo- 
ser, vous devrez écrire une fonction qui, 
en une ligne, fournira le même résultat. 
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DIRE 


SOLUTIONS | 
DU NUMÉRO PRÉCÉDENT 


Les solutions présentées ici répondent aux 
problèmes posés dans le précédent 
numéro de LIST. Ce ne sont pas 
forcément les 
meilleures ! 
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Un programme anticonvivial 


Un utilisateur du programme 

« anticonvivial » proposé ne peut 
pas manquer de faire des remarques. En 
voici dix, il peut y en avoir d’autres. 


1. Lorsque ce programme est exécuté, 
il n’indique pas le traitement qu’il réa- 
lise, c’est-à-dire la moyenne de valeurs 
comprises entre 0 et 20. 


2. L'utilisateur ne sait pas que la pre- 
mière donnée à entrer est le nombre de 
valeurs. 


3. La saisie du nombre de valeurs 
n'est pas contrôlée. Si ce nombre 
dépasse 100, une erreur se déclenchera 
au moment de l’entrée de la 101°, alors 
que cela pourrait être testé dès le début 
du programme. 


4. Le nombre de valeurs dont il faut 
faire la moyenne doit être entré au début 
du programme, ce qui oblige à les 
compter. L'ordinateur pourrait se char- 
ger de ce travail, l’entrée d’une valeur 
sentinelle (par exemple, — 1) indiquant 
la fin de la liste. 


5. Le programme ne fonctionne que 
si le nombre de valeurs ne dépasse pas 
101. Cette limite aurait pu être facile- 
ment étendue si les valeurs n’étaient pas 
stockées dans un tableau, mais totalisées 
au fur et à mesure de la saisie. 


6. En cours de saisie, on ne sait pas 
quel est le rang de la valeur à entrer. 
Ceci risque d’être très gênant si l’utili- 
sateur est interrompu dans son travail. 

7. Il n’est pas possible de corriger une 
valeur. A la moindre erreur, c’est-à-dire 
si une mauvaise valeur a été entrée, il 
faut arrêter le programme, et saisir à 


nouveau tous les nombres depuis le 
début. 


8. Le programme effectue le contrôle 
des valeurs seulement une fois qu’elles 
ont été toutes entrées. Il aurait été pré- 
férable d’effectuer ce contrôle au 
moment de la saisie. 


9. Il n’est pas indiqué que la valeur 
affichée, à la fin de l’exécution du pro- 
gramme, est la moyenne des valeurs 
entrées. 


10. Le message « Valeur erronée » 
n'indique pas le numéro de la valeur 
rejetée par le programme. 
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La parité des mots 


Le programme suivant met 0 dans 
la variable appelée Parite, si le 
nombre de bits à 1 dans N est pair. II 
y met 1, dans le cas contraire. 
10 Parite=0 
20 Parite=(Parite + N MOD 2) 
MOD 2 
30 N=N DIV 2 
40 IF N< >0 THEN GOTO 20 


Ici, l'opérateur MOD fournit le reste 
de la division entière, alors que DIV 
fournit le résultat de cette même divi- 
sion. Si votre ordinateur ne dispose pas 
de telles fonctions, vous pouvez utiliser 
le programme suivant : 

10 Parite=0 | 

20 Parite= Parite + N — 2*INT(N/2) 
30 N=INT(N/2) 

40 IF N< >0 THEN GOTO 20 

50 Parite= Parite — 2*INT(Parite/2) 


Il faut noter que cette méthode de 
contrôle par bit de parité ne permet de 
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détecter que les erreurs sur un nombre 
impair de bits. Si l’on désire une 
méthode de détection plus sûre, les 
codes de Hamming peuvent être utilisés. 
Avec deux bits (au lieu d’un seul bit de 
parité), il est possible de détecter les 
erreurs sur deux bits, et de corriger les 
erreurs sur un bit. 
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En toute logique 


L’algèbre logique est régie par 
les règles suivantes : 
la commutativité 
Aet B = Bet A 
A ou B = Bou A 
l’associativité 
A et (B et C) = (A et B) et C 
À ou (B ou C) = (A ou B) ou C 
la distributivité 
A et (B ou C) = (A et B) ou (A 


et C) 

A ou (B et C) = (A ou B) et (A 

ou C) 
l’idempotence 

À ou À = À 

A et À = A 
la complémentarité 

A ou (non A) = 1 

A et (non A) = 0 
l’'involution 

non (non À) = A 
l'absorption 

A ou (À et B) = A 

A et (A ou B) = A 


les théorèmes de De Morgan 
non (A ou B) = (non A) et (non B) 


non (A et B) = (non A) ou (non B) 


En appliquant ces différentes règles, 
les équations logiques se simplifient de 
la façon suivante : 

1. non (non B ou A) = (non A)et B 

2. (A et B) ou (A et (non B)) = A 

3. (A ou Bjet (A et B) = A et B 

4. non ((A ou B) et B) = non B 

5. non {(non A) et (non B)) = Aou B 

6. ((non A) et (non B)) ou B = (non 
A) ou B° 

7. ((non A) et B) ou (A et B) = B 

8. ((non A) et (non B))ou ((non A) et 
B) = non A 

9. ((non A) et (non B)) ou (A et (non 
B)) ou (A et B) = A ou (non B) 

10. A et (A ou B) et (non B) et (A ou 
(non B)) = A et (non B) 
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Lequel des trois 


LL. 1. La vitesse de rotation d’un dis- 

que souple est de 300 tours par 
minute : c’est la valeur couramment 
rencontrée pour les lecteurs de disquet- 
tes de 5 pouces. 


2. La vitesse de calcul de Mark 1 était 
de 12 multiplications par minute : il réa- 
lisait la multiplication de deux nombres 
de 10 chiffres en cinq secondes. 


3. En 1981, le nombre moyen de 
lignes de listes imprimées dans les entre- 
prises utilisant un ordinateur était de 
55500 par an et par salarié : cette valeur 
étonnante représente plus de 200 lignes 
imprimées par jour et par personne. 


4. La productivité moyenne d’un pro- _ 


grammeur professionnel travaillant sur 
un grand projet est de 5 instructions par 
jour : ce résultat provient d’une étude 
de Barry W. Boehm, Software and its 
Impact. 


5. En 1977, il y avait environ 50000 
micro-ordinateurs installés dans le 
monde. 
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Recherche du DU 


Le programme de recherche de la 

séquence ‘DU?’ donne un résul- 
tat faux pour une chaîne telle que 
‘ADDUCTION D'EAU” : il ne trou- 
vera pas le ‘DU’ apparaissant au 
milieu de ‘‘ADDUCTION?”’. En effet, 
l’algorithme utilisé n’est pas valable 
lorsque la sous-chaîne à rechercher est 
précédée de son propre premier carac- 
tère (ici, un D). 

Mais cette — petite — erreur d’algo- 
rithme en cachait une grosse : les OR 
des lignes 50 et 70 doivent être rempla- 
cés par des AND. Pour la ligne 70, elle 
était : 

70 IF Chaine(I)< >‘‘D’’ OR 
Chaine(I) < > ‘‘d”’ THEN GOTO 30 


Elle devient : 
70 IF Chaine(I)< >‘‘U’”’ AND 
Chaine(l) < > ‘‘u’’ THEN GOTO 40 


(Vous trouverez dans ce numéro, 
page 37, une description détaillée des 
différents algorithmes de recherche de 
sous-chaînes.) 
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